## data -
data(LPP2005REC, package = "timeSeries")
SPI <- LPP2005REC[, "SPI"]
plot(SPI, type = "l", col = "steelblue", main = "SP500")
abline(h = 0, col = "grey")
## histPlot -
histPlot(SPI)
## densityPlot -
densityPlot(SPI)
Run the code above in your browser using DataLab