RiskParityPortfolio {ConnectednessApproach}

Minimum connectedness portfolio

Description

This function calculates the minimum connectedness portfolio

Usage

RiskParityPortfolio(
  x,
  H,
  method = c("cumsum", "cumprod"),
  statistics = c("Fisher", "Bartlett", "Fligner-Killeen", "Levene", "Brown-Forsythe"),
  long = TRUE,
  metric = "StdDev",
  digit = 2
)

Arguments

x

zoo return matrix (in percentage)

H

Pairwise connectedness matrix or alternatively variance-covariance or correlation matrix

method

Cumulative sum or cumulative product

statistics

Hedging effectiveness statistic

long

Allow only long portfolio position

metric

Risk measure of Sharpe Ratio (StdDev, VaR, or CVaR)

digit

Number of decimal places

Value

Get portfolio weights

Author(s)

David Gabauer

References

Ederington, L. H. (1979). The hedging performance of the new futures markets. The Journal of Finance, 34(1), 157-170.

Antonakakis, N., Cunado, J., Filis, G., Gabauer, D., & de Gracia, F. P. (2020). Oil and asset classes implied volatilities: Investment strategies and hedging effectiveness. Energy Economics, 91, 104762.

Examples

data("g2020")
fit = VAR(g2020, configuration=list(nlag=1))
mcp = RiskParityPortfolio(g2020/100, fit$Q, statistics="Fisher")
mcp$TABLE