library(tidyverse)
# directly load the atus data 
atus_data <- read_rds("https://euclid.nmu.edu/~joshthom/teaching/dat309/week2/ATUS2/ATUS_data.RDS")