如何将多个lm摘要输出保存到数据框或csv？

Question

我正在尝试将lm的摘要输出保存到数据框“csv”或“txt”文件中。我想要做的是使用lm（最终glm）使用不同的因变量，但使用相同的自变量。

这是我使用lapply进行模型拟合的代码：

varlist <- names(NDVI)[2:244]

models <- lapply(varlist, function(x) {
lm(substitute(i ~ efectohuracan, list(i = as.name(x))), data = NDVI)})

如果我将其另存为

write.csv(models,"models.csv")

我收到此错误

Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = 
stringsAsFactors) : cannot coerce class ""lm"" to a data.frame

我是R的新手。感谢那些在这个社区也发布过他们问题的人们所做的代码，所以也许有更好的方法可以解决这个问题。

提前谢谢

Answer 1

对不起，我错误地将其作为一个骗局开始关闭。感谢我的朋友重新开放它。

对于"mlm"模型类，这非常有效。

首先，您需要Fitting a linear model with multiple LHS

然后让fit成为您的拟合模型对象（"mlm"和"lm"类），通过

提取系数

beta <- coef(summary(fit))

这是系数表的列表。

然后，让我们把它折叠成一个数据框：

tab <- do.call(rbind.data.frame, beta)

现在您只需将此数据框写入＆＃34; csv＆＃34;像往常一样。

作为快速测试，您可以使用链接线程中提供的玩具数据集。