## LPP2005REC -
LPP = as.timeSeries(data(LPP2005REC))
## assetsReturnPlot -
# par(mfrow = c(3,2))
assetsReturnPlot(LPP[, 1:3])
## assetsCumulatedPlot -
assetsCumulatedPlot(LPP[, "LPP40"],
col = "red")
## assetsSeriesPlot
assetsSeriesPlot(LPP[, c("LMI", "ALT")],
col =c("orange", "brown"))
Run the code above in your browser using DataLab