library(LTASR)
library(dplyr)
#Import example person file
person <- person_example %>%
mutate(dob = as.Date(dob, format='%m/%d/%Y'),
pybegin = as.Date(pybegin, format='%m/%d/%Y'),
dlo = as.Date(dlo, format='%m/%d/%Y'))
#Import default rate object
rateobj <- us_119ucod_19602021
#Stratify person table
py_table <- get_table(person, rateobj)
#Calculate SMRs for all minors
smr_minor_table <- smr_minor(py_table, rateobj)
#Calculate custom minor grouping for all deaths
smr_custom(smr_minor_table, 1:119)
#' #Calculate custom minor grouping for all deaths
smr_custom(smr_minor_table, 4:40)
Run the code above in your browser using DataLab