purrr_modelr_grid_search.R

library(alr3)
library(purrr)
library(dplyr)
library(broom)
library(modelr)

challenger_data <- challeng

link <- c("logit", "probit", "cloglog")
formulas <- formulas(.response = ~ cbind(Fail, n-Fail), 
                     ~ Temp, 
                     ~ Temp + Pres) 

model_grid <- as_data_frame(expand.grid(formulas, link, stringsAsFactors = FALSE))
names(model_grid) <- c("formula","link") 

model_grid <-
    model_grid %>%
    mutate(family = map(link, binomial),
           model = paste0(formula),
           fit = pmap(.l = list( formula = formula, family = family),
                      .f = glm,
                      data = challenger_data),
           results = map(fit, glance)) %>%
    unnest(results)

View(model_grid)