我在 Excel 中有数据框,我想在其上运行模型并返回预测和汇总统计信息。目前,我将数据导出到 R,运行线性模型并使用 XLConnect 返回系数。虽然这适用于线性模型,但它不适用于更复杂的模型,例如广义加法模型,因为系数不完全可用。我想知道是否有更好的方法来执行上述操作。
我现在所做的示例,这是非最佳的:
library(XLConnect)
dat <- data.frame(rsp = rnorm(100, 0, 1),
pred1 = rnorm(100, 0, 1),
pred2 = rnorm(100, 0, 1))
model <- lm(rsp ~ pred1 + pred2, data = dat)
writeWorksheetToFile("model1.xlsx",
data = summary(dat),
sheet = "summary",
header = TRUE,
clearSheets = TRUE)