library(lubridate)
data("cook_records")
the_breaks <- c(0, 20, 40, 60, 75, Inf)
## take subset for example
cook_records_subset <- cook_records[year(cook_records$date)==2021, ]
cook_demographics_subset <- cook_demographics[year(cook_demographics$date)==2021, ]
cook_counts <- compute_counts(cook_records_subset,
demo = cook_demographics_subset,
by = c("agegroup", "race", "sex"),
breaks = the_breaks)
Run the code above in your browser using DataLab