Data engineering and BI courses are free!
Data runs from 1950 to near the end of 2018.
sp500_1950_2018A data frame with 17346 observations on the following 7 variables.
Date of the form `"YYYY-MM-DD"`.
Opening price.
Highest price of the day.
Lowest price of the day.
Closing price of the day.
Adjusted price at close after accounting for dividends paid out.
Trading volume.
# NOT RUN {
data(sp500_1950_2018)
sp500.ten.years <- subset(sp500_1950_2018,
"2009-01-01" <= as.Date(Date) & as.Date(Date) <= "2018-12-31")
d <- diff(sp500.ten.years$Adj.Close)
mean(d > 0)
# }
Run the code above in your browser using DataLab