Actualización de un modelo de regresión lineal con actualización y ronroneo

Quiero actualizar unlm-modelo utilizando elupdate-función dentro de unmap-call, pero esto arroja el siguiente error:

mtcars %>% group_by(cyl) %>% 
 nest() %>% 
 mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)), 
        lm2 = map(lm1, ~update(object = .x, formula = .~ . + hp)))

Error in mutate_impl(.data, dots) : 
  Evaluation error: cannot coerce class ""lm"" to a data.frame.

¿Hay alguien que me puede ayudar con este problema? Estoy confundido acerca de este error, porque p. esto funciona totalmente bien:

mtcars %>% group_by(cyl) %>% 
  nest() %>% 
  mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)), 
         lm2 = map_dbl(lm1, ~coefficients(.x)[1]))

Respuestas a la pregunta(1)

Su respuesta a la pregunta