ANLY 512 Lab 1

Overview This dashboard evaluates short-term investment opportunities for four companies based on recent stock performance. The goal is to identify which asset may provide the highest short-term gains.

tickers <- c("NVDA", "AMZN", "JNJ", "TSLA")

start_date <- Sys.Date() - 90
end_date <- Sys.Date()

stock_data <- lapply(tickers, function(ticker) {
  getSymbols(ticker, src = "yahoo", from = start_date, to = end_date, auto.assign = FALSE)
})

names(stock_data) <- tickers

Time Series Price Chart

Returns Summary

##      Ticker   Mean_Return    Std_Dev Sharpe_Ratio
## NVDA   NVDA  0.0035995505 0.03781442   0.09518989
## TSLA   TSLA  0.0049787735 0.05379847   0.09254489
## AMZN   AMZN  0.0018920244 0.02926265   0.06465663
## JNJ     JNJ -0.0006713513 0.01603624  -0.04186462

Boxplot of Returns

Cumulative Returns

Decision Summary

Insights Based on Sharpe Ratio and cumulative returns, we assess short-term investment potential.

[TSLA] shows the highest risk-adjusted return.

Volatility is lowest for [JNJ], making it a safer short-term bet.

Recommend investing in [NVDA] for short-term gains over the next 1–2 months.