如何缩短多个回归分析的代码？

Question

我是r和这个论坛的新手，如果这个问题很烦人，请提前抱歉。

我正在执行几个回归模型，代码如下：

c250 <- lm(y ~ b1 + c + d + e)
c300 <- lm(y ~ b2 + c + d + e)
c350 <- lm(y ~ b3 + c + d + e)
c400 <- lm(y ~ b4 + c + d + e)
c450 <- lm(y ~ b5 + c + d + e)
c500 <- lm(y ~ b6 + c + d + e)

等...

有没有办法写这个更短？

Answer 1

for(i in 1:6){
   assign(paste0("c",200+50*i), lm(y ~ get(paste0("b",i)) + c + d + e))
}

这应该有效