## Load Swiss Pension Fund Benchmark Data -
setRmetricsOptions(myFinCenter = "GMT")
X <- LPP2005REC[, "SPI"]
colnames(X)
## Compute 1% Order Statistics -
N <- round(0.01*nrow(X))
N
OS <- orderStatistics(X)[[1]]
OS[1:N, ]
Run the code above in your browser using DataLab