如何解决使用 nest_by 评估特定子集中的多个回归模型
我在运行下面的代码时遇到错误。我只是尝试在特定分组中生成线性回归,并使用这些模型使用留一法生成估计值。有关如何解决此问题的任何建议?
library(modelr)
install.packages("gapminder")
library(gapminder)
data(gapminder)
#CASE 1
model1 <- lm(lifeExp ~ pop,data = gapminder)
model2 <- lm(lifeExp ~ pop + gdpPercap,data = gapminder)
models <- list(fit_model1 = model1,fit_model2 = model2)
gapminder %>% nest_by(continent,country) %>%
bind_cols(
map(1:nrow(gapminder),function(i) {
map_dfc(models,function(model) {
training <- data[-i,]
fit <- lm(model,data = training)
validation <- data[i,]
predict(fit,newdata = validation)
})
}) %>%
bind_rows()
)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。