sp500return <- read.table("file22.csv", sep = ",", header = T)
sp500return <- ts(sp500return$returns, start = c(1926, 1), frequency = 12)
plot(sp500return)
plot(sp500return^2)