Log odds with nesting for Tyler

nest_tidydo.R

library(tidyverse)
library(tidylo)
library(babynames)

top_names <- babynames %>%
  filter(year >= 1950,
         year < 1990) %>%
  mutate(decade = (year %/% 10) * 10,
         decade = paste0(decade, "s")) %>%
  group_by(decade) %>%
  count(sex, name, wt = n, sort = TRUE) %>%            ## sex is your analog to user id
  ungroup

name_log_odds <- top_names %>%                         ## top_names is like your df
  nest(data = c(decade, name, n)) %>%                  ## decade is your analog to month_yr, name is your analog to unigram
  mutate(data = map(data, bind_log_odds, decade, name, n)) %>%
  unnest(data)

name_log_odds