## create new life tables based on level-1
## 'West' model life tables, but with lower
## life expectancy
library(dplyr, warn.conflicts = FALSE)
target <- data.frame(sex = c("Female", "Male"),
ex = c(17.5, 15.6))
standard <- west_lifetab |>
filter(level == 1) |>
select(sex, age, lx)
ex_to_lifetab_brass(target = target,
standard = standard,
infant = "CD",
child = "CD")
Run the code above in your browser using DataLab