如何将我的多 lm 摘要输出保存到数据框或 csv？
How can I save my multiple lm summary output to a data frame or csv?
我正在尝试将 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 的新手。我编写的代码感谢也在这个社区中发布了他们的问题的人，所以也许有更好的方法来解决这个问题。
提前致谢
抱歉，一开始我错误地把它当作一个骗局关闭了。感谢好友重开
对于 "mlm" 模型 class 这非常有效。
首先，您需要
然后让 fit 成为您的拟合模型对象（"mlm" 和 "lm" class），通过
提取其系数
beta <- coef(summary(fit))
这是系数表列表。
然后，让我们将其折叠成一个数据框：
tab <- do.call(rbind.data.frame, beta)
现在您只需像往常一样将此数据框写入 "csv" 文件即可。
作为快速测试，您可以使用链接线程中提供的玩具数据集。
我正在尝试将 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 的新手。我编写的代码感谢也在这个社区中发布了他们的问题的人，所以也许有更好的方法来解决这个问题。
提前致谢
抱歉，一开始我错误地把它当作一个骗局关闭了。感谢好友重开
对于 "mlm" 模型 class 这非常有效。
首先，您需要
然后让 fit 成为您的拟合模型对象（"mlm" 和 "lm" class），通过
beta <- coef(summary(fit))
这是系数表列表。
然后，让我们将其折叠成一个数据框：
tab <- do.call(rbind.data.frame, beta)
现在您只需像往常一样将此数据框写入 "csv" 文件即可。
作为快速测试，您可以使用链接线程中提供的玩具数据集。