FRAPO (version 0.4-2)

PERC: Equal risk contributed portfolios

Description

This function solves for equal risk contributed portfolio weights.

Usage

PERC(Sigma, par = NULL, percentage = TRUE, optctrl = ctrl(), ...)

Value

An object of formal class "PortSol".

Arguments

Sigma

Matrix, the variance-covariance matrix of asset returns

par

Vector, the initial values of the weights.

percentage

Logical, whether the weights shall be returned as decimals or percentages (default).

optctrl

Object of class Rcpp_CTRL.

...

Ellipsis argument is passed down to nlminb().

Author

Bernhard Pfaff

Details

The objective function is the standard deviation of the marginal risk contributions, which is minimal, i.e. zero, if all contributions are equal. The weights are rescaled to sum to unity.

References

Maillard, S. and Roncalli, T. and Teiletche, J.: The Properties of Equally Weighted Risk Contribution Portfolios, Journal of Portfolio Management, Vol. 36, No. 4, Summer 2010, 60--70.

See Also

"PortSol"

Examples

data(MultiAsset)
Rets <- returnseries(MultiAsset, method = "discrete", trim = TRUE,
                     percentage = TRUE)
V <- cov(Rets)
ERC <- PERC(V)
ERC
w <- Weights(ERC)
w * V