多个 for() 循环和 if() 语句

Question

我需要两个 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) 不起作用，我不知道如何正确指定它。

Answer 1

你可以试试if ((i-23) == j)。但下面的命令可能更简单：

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

这将避免您不感兴趣的排列。