変数のマトリックスがあり、回帰のすべての変数の差を比較するループを実行して、マトリックスが生成され、差が埋められるようにしようとしています。以下は、問題を解決するためのシミュレーション コードです。x_1、x_2、および x_3 を比較して対角線について対称な 3x3 行列を作成する行列を作成したいと考えています。対角線はすべてゼロである必要があります。
y <- sample(seq(1:4), 100, replace = TRUE)
x_1 <- sample(seq(1:2), 100, replace = TRUE)
x_2 <- sample(seq(1:4), 100, replace = TRUE)
x_3 <- sample(seq(1:4), 100, replace = TRUE)
frame <- cbind(x_1, x_2, x_3)
dif <- matrix(NA, ncol = 3, nrow = 3)
for(i in 1:3){
model_1 <- lm(y ~ frame[,i])
model_2 <- lm(y ~ frame[,i])
dif[i]<- (model_2$coef[2] - model_1$coef[2])
}
ループにインデックスを付け、x のマトリックスを参照して結果を含む 3x3 テーブルを生成する方法について混乱しています。