The behavior of map is understood to the extent of the following code.
iris %>% group_nest(Species) %>% mutate(lm_mod = map(data,function(x){