(kxn) 行列があります。最初に、列 1 を 1 列おきに (lm 関数を使用して) 線形回帰し、係数のみを抽出しました。
fore.choose <- matrix(0, 1, NCOL(assets))
for(i in seq(1, NCOL(assets), 1))
{
abc <- lm(assets[,1]~assets[,i])$coefficients
fore.choose[1,i] <- abc[2:length(abc)]
}
係数はfore.choose
行列に配置されます。
私が今しなければならないことは、列 2 を 1 つおきの列で線形回帰し、次に列 3 と続き、係数のみを抽出することです。
出力は、OLS 単変量係数の正方行列になります。相関行列に似ていますが、私が興味を持っているのはベータ係数です。
fore.choose <- matrix(0, 1, NCOL(assets))
最初はなる必要があります
fore.choose <- matrix(0, NCOL(assets), NCOL(assets))