1

我正在尝试将 a 的摘要输出保存lm到数据框、“csv”或“txt”文件中。我想做的是使用具有不同因变量但自变量相同的 a 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 的新手。感谢那些在这个社区也发布了他们的问题的人，所以也许有更好的方法来解决这个问题。

先感谢您

4

1 回答 1

1

抱歉，我一开始就错误地将其关闭为骗子。感谢我的朋友重新打开它。

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

首先，您需要拟合具有多个 LHS 的线性模型

然后让fit成为您的拟合模型对象（属于"mlm"和"lm"类），通过以下方式提取其系数

beta <- coef(summary(fit))

这是系数表的列表。

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

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

现在您只需像往常一样将此数据框写入“csv”文件。

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

于 2017-05-26T07:32:21.927 回答