## assetsSim -
# Simulate Data:
# Sigma = sqrt(W' COV W)
set.seed(4711)
DATA <- assetsSim(100, 6)
head(DATA)
## covarRisk -
# Covariance Risk:
covarRisk(DATA)
## mcr -
# Marginal contribution to Covariance Risk
# MCR <- d Sigma / d W_i
mcr(DATA)
## mcrBeta -
# Marginal Beta
# beta <- MCR / Sigma
mcrBeta(DATA)
## riskContributions -
# Marginal Risk Contributions
# RC <- Sum_i ( W_i MCR )
riskContributions(DATA)
sum(riskContributions(DATA)) - covarRisk(DATA)
## riskBudgets -
# Marginal Risk Budgets
# RB <- RC / Sigma
riskBudgets(DATA)
sum(riskBudgets(DATA))
Run the code above in your browser using DataLab