Question

我希望这不是最简单的问题。我需要做一个简单的回归（是的，一个简单的回归：Y = a + bX + epsilon）。我的数据框是这样的，每列有一个变量（每列有20行（观察））。问题是前10列是从Y1到Y10，最后一列是唯一的自变量。

所以，我必须运行10次回归，只改变Yi（i = 1，... 10）。例如：

Y1 = a + bX + epsilon Y2 = a + bX + epsilon ... Y10 = a + bX + epsilon

（Yi和X都是向量（20 x 1），它实际上只是一个简单的练习）

我可以一个接一个地做，但我想在一个命令中完成它们。我不是编程方面的老手，我在想dplyr是否可以帮助我。

我真的在寻找建议。

谢谢。

Answer 1

你可以尝试

lapply(d1[paste0('Y',1:10)], function(y) lm(y~d1[,'X']))

其中d1是数据集