Load library

library(quantmod)

Download daily stock prices from 2024 to present

symbols <- c(“AAPL”, “MSFT”, “GOOG”, “AMZN”, “TSM”, “NVDA”)

getSymbols(symbols, src = “yahoo”, from = “2024-01-01”, to = Sys.Date(), auto.assign = TRUE)

Calculate daily returns

AAPL_returns <- dailyReturn(Ad(AAPL)) MSFT_returns <- dailyReturn(Ad(MSFT)) GOOG_returns <- dailyReturn(Ad(GOOG)) AMZN_returns <- dailyReturn(Ad(AMZN)) TSM_returns <- dailyReturn(Ad(TSM)) NVDA_returns <- dailyReturn(Ad(NVDA))

Show first few daily returns

head(AAPL_returns) head(MSFT_returns) head(GOOG_returns) head(AMZN_returns) head(TSM_returns) head(NVDA_returns)

returns <- merge( AAPL_returns, MSFT_returns, GOOG_returns, AMZN_returns, TSM_returns, NVDA_returns )

colnames(returns) <- c(“AAPL”, “MSFT”, “GOOG”, “AMZN”, “TSM”, “NVDA”)

head(returns) View(returns)