## data -
SPI <- LPP2005REC[, "SPI"]
plot(SPI, type = "l", col = "steelblue", main = "SP500")
abline(h = 0, col = "grey")
## teffectPlot -
# Scaling Law Effect:
scalinglawPlot(SPI)
Run the code above in your browser using DataCamp Workspace