library(fAssets)
dim(LPP2005REC)


head(LPP2005REC,2)

x <-as.timeSeries(data(LPP2005REC))[, 1:2]
head(x,2)
assetsOutliers(x, colMeans(x), cov(x))


