0

2 つの for ループが必要です。このような：

for (i in seq_along(dat1)[25:30]) 
    for(j in seq_along(dat1)[2:7]) {
        print(summary(r <- lm(dat1[,j] ~ dat1[,i]+Jan+Nov, data=dat1)))
}

iここで、対角線のみを取得し、すべての可能な順列を取得するわけではないため、 の最初と の最初の出力を調整したいと思いますj。どうすればいいですか？

if ステートメントを試してみましたが、if (i==j)機能せず、正しく指定する方法がわかりません。

4

1 に答える 1

0

あなたは試すことができif ((i-23) == j)ます。ただし、次のコマンドの方が簡単な場合があります。 

mapply(25:30, 2:7, function(i, j)
                             summary(lm(dat1[,j] ~ dat1[,i]+Jan+Nov, data=dat1)))

これにより、興味のない順列を回避できます。

于 2012-09-27T15:25:57.670 に答える