保存的嵌套回归的回归输出

Question

我正在尝试导出使用broom 和map 创建的嵌套回归的回归输出。

例如：

library(tidyverse)
library(broom)

year <- rep(2014:2015, length.out=10000)
group <- sample(c(0,1,2,3,4,5,6), replace=TRUE, size=10000)
female <- sample(c(0,1), replace=TRUE, size=10000)
smoker <- sample(c(0,1), replace=TRUE, size=10000)
dta <- tibble(year = year, group = group, female = female, smoker = smoker)

mods <- dta %>%
  nest(data = c(-year)) %>%
  mutate(model = map(data, ~ glm(smoker ~ female*group, data = .,
                                 family = binomial(link = "probit"))))

## export mods

## upload mods

1. 如何保存模组？
2. 保存后，如何将其加载到全局环境中？

Answer 1

你可以试试：

saveRDS(mods, "/tmp/model.rds") # choose here the path to the wanted file

mods <- readRDS("/tmp/model.rds")