data(edhec)
# construct a weighting vector for an equally weighted portfolio
assets=dim(edhec)[2]
eqweight=t(rep(1/assets, assets))
VaR.Marginal(R=edhec,p=0.99,weightingvector=eqweight)
Run the code above in your browser using DataLab