我希望这不是最简单的问题。我需要做一个简单的回归（是的，简单的回归：Y=a+bX+epsilon）。我的数据框架是这样的，每列有一个变量（每列有20行（观察））。问题是前10列是从Y1到Y10，最后一列是唯一的自变量。
因此，我必须运行10个回归，只更改Yi（I=1，…10）。例如：
Y1=a+bX+εY2=a+bX+ε。。。Y10=a+bX+ε
（Yi和X都是向量（20 X 1），这实际上只是一个简单的练习）
我可以一个接一个地完成，但我想在一个命令中完成所有任务。我不是一个编程老手，我在想dplyr是否可以帮助我。
我真的在寻求建议。
谢谢。
您可以尝试
lapply(d1[paste0('Y',1:10)], function(y) lm(y~d1[,'X']))
其中d1是数据集