## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval = FALSE, warning=FALSE----------------------------------------------
# library(propop)
# ag_population <- get_population(
#   number_fso = "px-x-0102010000_101",
#   year = 2025,
#   spatial_units = "- Aargau"
# )

## ----get ag params, eval = FALSE----------------------------------------------
# ag_parameters <- get_parameters(
#   year = 2026,
#   year_last = 2027,
#   spatial_units = "Aargau"
# )

## ----eval = FALSE-------------------------------------------------------------
# # select reference scenario
# ag_parameters_ref <- ag_parameters |>
#   dplyr::filter(scen == "reference")
# 
# propop(
#   parameters = ag_parameters_ref,
#   year = 2026,
#   year_last = 2027,
#   age_groups = 101,
#   fert_first = 16,
#   fert_last = 50,
#   share_born_female = 100 / 205,
#   population = ag_population,
#   subregional = FALSE,
#   binational = TRUE
# )