## Not run:
# library(SEERaBomb)
# load("~/data/SEER/mrgd/cancDef.RData") #loads in canc
# lu=canc%>%filter(cancer=="lung")
# lu=lu%>%mutate(status=as.numeric(COD>0))%>%select(yrdx,agedx,sex,surv,status)
# lu=lu%>%mutate(surv=round((surv+0.5)/12,3))#convert surv to years
#
# # library(demography)
# # d=hmd.mx("USA", "username", "password") #make an account and put your info in here
# # mrt=d$rate
# # save(mrt,file="~/data/usMort/mrt.RData")
# load("~/data/usMort/mrt.RData"); object.size(mrt)# 250kb
# brks=c(0,0.5,3,6,10,15,20,25)
# (dlu=msd(lu,mrt,brks))
# ## End(Not run)
Run the code above in your browser using DataLab