if (FALSE) {
data(smi.stocks)
multivariate.fit <- fit.ghypmv(data = smi.stocks,
opt.pars = c(lambda = FALSE, alpha.bar = FALSE),
lambda = 2)
portfolio <- ESghyp.attribution(0.01, multivariate.fit)
summary(portfolio)
}
Run the code above in your browser using DataLab