Net reproduction rate (NRR)

sum(asfr_female * Lx / l0): expected daughters per woman allowing for the mother's survival, with Lx from the female period life table of the same province and year (build_life_tables()'s fltper, radix l0 = 100000).

net_reproduction_rate(asfr_df, lt_df)

Arguments

asfr_df

Output of age_specific_fertility_rate().

lt_df

build_life_tables()'s fltper tibble (columns nuts3_code, year, age, Lx).

Value

A tibble with nuts3_code, province_name, year, nrr.

Examples

asfr <- tibble::tibble(
  nuts3_code = "ES111", province_name = "A Coruna", year = 2023,
  age = c(20, 30), asfr = c(0.03, 0.08), asfr_female = c(0.015, 0.04)
)
fltper <- tibble::tibble(
  nuts3_code = "ES111", year = 2023, age = c(20, 30), Lx = c(99000, 98500)
)
net_reproduction_rate(asfr, fltper)
#> # A tibble: 1 × 4
#>   nuts3_code province_name  year    nrr
#>   <chr>      <chr>         <dbl>  <dbl>
#> 1 ES111      A Coruna       2023 0.0542