```r
library(purrr)

nested_models <- nested_data %>%
  mutate(models = map(data, ~ glm(cbind(count, time_total) ~ time_floor, ., 
                                  family = "binomial")))

nested_models
```

```
## # A tibble: 32 x 4
##    person word    data              models   
##    <chr>  <chr>   <list>            <list>   
##  1 David  #rstats <tibble [12 x 4]> <S3: glm>
##  2 David  broom   <tibble [10 x 4]> <S3: glm>
##  3 David  data    <tibble [12 x 4]> <S3: glm>
##  4 David  ggplot2 <tibble [10 x 4]> <S3: glm>
##  5 David  time    <tibble [12 x 4]> <S3: glm>
##  6 David  tweets  <tibble [8 x 4]>  <S3: glm>
##  7 Julia  #rstats <tibble [12 x 4]> <S3: glm>
##  8 Julia  blog    <tibble [10 x 4]> <S3: glm>
##  9 Julia  data    <tibble [12 x 4]> <S3: glm>
## 10 Julia  day     <tibble [12 x 4]> <S3: glm>
## # ... with 22 more rows
```