## load series: column 1:3 Swiss market, column 8 (4) benchmark
x <- 100 * LPP2005REC[, c(1:3, 8)]
colnames(x)
x <- daily2monthly(x)
x
## Get the Monthly Series -
endOfPeriodSeries(x, nYearsBack="1y")
## Compute the Monthly Statistics
endOfPeriodStats(x, nYearsBack="1y")
## Compute the Benchmark
endOfPeriodBenchmarks(x, benchmark=4)
Run the code above in your browser using DataLab