library(lubridate)
data(cook_records)
## define smaller subset for example
cook_demographics_subset <- cook_demographics[year(cook_demographics$date)==2021, ]
demo <- collapse_age_dist(cook_demographics_subset,
breaks = c(0, 20, 40, 60, 80, Inf))
Run the code above in your browser using DataLab