Scale a baseline ASFR shape to target yearly TFR values.
Usage
proj_asfr(project_year = 1, age_group = 101, age_asfr, tfr)
Arguments
- project_year
Number of projection years.
- age_group
Number of ages in age_asfr (default 101).
- age_asfr
Baseline age-specific fertility vector (usually age 0-100,
with positive values mainly in childbearing ages).
- tfr
Numeric vector of yearly TFR values with length at least
project_year.
Value
A list of length project_year; each element is an ASFR vector
with the same length as age_asfr.
Examples
age_asfr <- rep(0, 101)
age_asfr[16:50] <- dnorm(16:50, mean = 30, sd = 6)
out <- proj_asfr(project_year = 2, age_group = 101, age_asfr = age_asfr, tfr = c(1.2, 1.1))
sum(out[[1]])
#> [1] 1.2