## LPP2005REC -
x = as.timeSeries(data(LPP2005REC))
## assetsHistPlot -
# par(mfrow = c(2, 2))
assetsHistPlot(x[, 1:4])
## assetsLogDensityPlot -
# par(mfrow = c(1, 1))
assetsLogDensityPlot(x[, "ALT"], estimator = "both")
Run the code above in your browser using DataLab