if (requireNamespace("Rglpk")) {
ns <- 5000 ## number of scenarios
na <- 20 ## nunber of assets
R <- randomReturns(na, ns, sd = 0.01, rho = 0.5)
res <- minCVaR(R, 0.25)
c(res) ## portfolio weights
}
Run the code above in your browser using DataLab