如何一次运行多个线性模型

Question

我现在要进行R编程。我想一次运行具有相同自变量但具有不同因变量（例如

）的线性模型

lm1<-lm(y1~x1+x2+x3)
lm2<-lm(y2~x1+x2+x3)
lm3<-lm(y3~x1+x2+x3)

以此类推。

请帮助我一次运行所有这些线性模型。并且还告诉我如何为所有模型立即生成常数及其t值。

请帮助，否则我必须分别运行每个模型。预先感谢

Answer 1

您可以使用lapply()来解析as.formula()中的结果变量向量，以将所有内容粘贴在一起：

lapply(
  c("Sepal.Length", "Sepal.Width"), # outcomes
  function(x) lm(as.formula(paste(x, "~ Petal.Length + Petal.Width + Species")), data = iris))

lapply()可以很容易地并行化以提高性能。