Múltiples Modelos

set.seed(3030)
separar <- initial_split(vehiculos)

vehiculos_entrenar <- training(separar)
vehiculos_prueba <- testing(separar)

1. Use group_nest() para agroupar secciones completas

por_traccion <- vehiculos_entrenar %>%
  group_nest(traccion)

por_traccion

2. Use map() para crear un modelo por cada agrupación

modelo_traccion <- por_traccion %>%
  mutate(modelo = map(data, ~lm(ciudad ~ motor + cilindros, data = .x)))

modelo_traccion

3. Use map() + unnest() para ver los resultados en una tabla

modelo_traccion %>%
  mutate(resultados = map(modelo, glance)) %>%
  unnest(resultados)