powered by
risk.hedge(x, y, alpha = c(0.05), beta = 1, p = 2)
## computes optimal hedging ratios between AAPL and SP500. data(returns) s <- returns[, 3] h <- returns[, 2] risk.hedge(s, h, c(0.01, 0.05))
Run the code above in your browser using DataLab