## LPP -
LPP = as.timeSeries(data(LPP2005REC))[, 1:6]
head(LPP)
## cov -
Cov = cov(LPP)
robustCov = assetsMeanCov(LPP, "MCD")$Sigma
## covEllipsesPlot -
covEllipsesPlot(list(Cov, robustCov))
Run the code above in your browser using DataLab