Edit
Além da função tidy
podemos utilizar broom::glance()
para obter estatística relacionadas somente ao modelo (loglik, AIC, BIC, etc...)
dt_new %>%
mutate(glance_mod = map(teste, broom::glance)) %>%
unnest(glance_mod)
#> # A tibble: 10 × 13
#> amo data teste tidy_mod sigma isConv finTol logLik AIC BIC devia…¹
#> <int> <list> <lis> <list> <dbl> <lgl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 1 <tibble> <nls> <tibble> 46.8 TRUE 7.96e-6 -93.1 194. 198. 32784.
#> 2 2 <tibble> <nls> <tibble> 165. TRUE 1.05e-6 -116. 240. 243. 408876.
#> 3 3 <tibble> <nls> <tibble> 65.5 TRUE 4.79e-7 -99.2 206. 210. 64422.
#> 4 4 <tibble> <nls> <tibble> 21.9 TRUE 5.01e-6 -79.5 167. 171. 7207.
#> 5 5 <tibble> <nls> <tibble> 47.3 TRUE 7.93e-7 -93.3 195. 198. 33565.
#> 6 6 <tibble> <nls> <tibble> 56.2 TRUE 1.94e-6 -96.4 201. 204. 47372.
#> 7 7 <tibble> <nls> <tibble> 71.1 TRUE 2.48e-6 -101. 209. 213. 75778.
#> 8 8 <tibble> <nls> <tibble> 70.5 TRUE 1.83e-7 -100. 209. 213. 74469.
#> 9 9 <tibble> <nls> <tibble> 70.4 TRUE 2.24e-6 -100. 209. 212. 74260.
#> 10 10 <tibble> <nls> <tibble> 42.4 TRUE 2.90e-6 -91.4 191. 194. 26981.
#> # … with 2 more variables: df.residual <int>, nobs <int>, and abbreviated
#> # variable name ¹deviance