Ooops, need to eval that chunk

model-many.Rmd

@@ -111,7 +111,7 @@ Note the difference between a standard grouped data frame and a nested data fram
 
 Now that we have our nested data frame, we're in a good position to fit some models because we can think about transforming each data frame into a model. Transforming each element of a list is the job of `purrr:map()`:
 
-```{r, eval = FALSE}
+```{r}
 country_model <- function(df) {
   lm(lifeExp ~ year, data = df)
 }