# NOT RUN {
require(pbo)
require(PerformanceAnalytics)
n <- 100
t <- 1000
s <- 8
m <- data.frame(matrix(rnorm(n*t,mean=0,sd=1),
nrow=t,ncol=n,byrow=TRUE,
dimnames=list(1:t,1:n)),
check.names=FALSE)
p <- pbo(m,s,f=Omega,threshold=1)
# }
Run the code above in your browser using DataLab