inst/script/make-death_prob.R

# import SSA period life expectancy tables
library(tidyverse)
death_prob <- read.csv("inst/extdata/ssa-death-probability.csv")
death_prob <- select(death_prob, "Age", "Sex", "DeathProb") %>%
  setNames(tolower(names(.))) %>%
  rename(prob = deathprob)

save(death_prob, file = "data/death_prob.rda", compress = "xz")
rafalab/dslabs documentation built on Nov. 29, 2023, 9:53 p.m.