Financial: Analysis In R

# Using PerformanceAnalytics VaR(clean_returns$returns, p = 0.95, method = "historical") ES(clean_returns$returns, p = 0.95, method = "historical")

# 20-day moving average aapl_sma <- SMA(aapl_prices, n = 20) financial analysis in r

df <- read_csv("financial_data.csv") %>% mutate(date = as.Date(date)) # Using PerformanceAnalytics VaR(clean_returns$returns

aapl_prices <- Cl(AAPL) # Cl() extracts closing price p = 0.95