standard_pop <- tibble::tibble(
age_group = c("Under 20", "20-24", "25-29", "30-34", "35-39", "40 and over"),
population = c(63986.6, 186263.6, 157302.2, 97647.0, 47572.6, 12262.6)
)
rate_adj_direct(fleiss_data, .std = standard_pop)
Run the code above in your browser using DataLab