Homework#1

install.packages(“PerformanceAnalytics”) library(quantmod) library(PerformanceAnalytics)

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

getSymbols( stocks, src = “yahoo”, from = “2024-01-01”, to = Sys.Date() ) prices <- merge( Ad(AAPL), Ad(MSFT), Ad(GOOG), Ad(AMZN), Ad(TSM), Ad(NVDA) )

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

head(prices) returns <- na.omit( Return.calculate(prices, method = “discrete”) )

head(returns, 6)