計算平均變異數投資組合

我正在嘗試使用外掛方法計算平均變異數投資組合。

首先我生成一些人工數據：

x <- replicate(10,rnorm(1000))

然後我應用外掛原理：

#count number of columns in the datasets
N <- ncol(x)

#create vector of ones
In <- rep(1,N)

#calculate covariance
covariance <- cov(x)

#calculate mean returns
mu <- colMeans(x)
mu <- t(t(mu))

#use the plug-in principle

xt <- solve(covariance) %*% mu
mean.var <- as.vector(xt) / abs(In %*% xt)

我想知道：

1. 這是實施均值變異數策略的正確方法嗎？
2. 我如何在這個框架中加入風險規避參數？

有一個小錯誤：如果你計算 sum(mean.var) 你會得到 $ -1 $ 代替 $ 1 $ . 所以應該是

mean.var<-xt/sum(xt)

以確保權重總和為 1。餘數正確。將風險規避參數納入框架需要解決 minVar 問題（參見此處的範例）。因此，將您的結果除以風險厭惡參數 $ \gamma $ 足以解決您的問題。

引用自：https://quant.stackexchange.com/questions/22660