data(polymod)
result <- polymod |>
(\(s) s[country == "United Kingdom"])() |>
assign_age_groups(age_limits = c(0, 5, 15)) |>
compute_matrix()
uk_pop <- data.frame(
age = limits_to_age_groups(0:80, notation = "brackets"),
population = rep(1e5, 81)
)
result |> symmetrise(survey_pop = align_ages(uk_pop, result))
Run the code above in your browser using DataLab