Atualizando um modelo de regressão linear com update e purrr
Eu quero atualizar umlm
-model usando oupdate
-função dentro de ummap
-call, mas isso gera o seguinte erro:
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.
Alguém pode me ajudar com esse problema? Estou confuso sobre esse erro, porque p. isso funciona totalmente bem:
mtcars %>% group_by(cyl) %>%
nest() %>%
mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)),
lm2 = map_dbl(lm1, ~coefficients(.x)[1]))