# NOT RUN {
library(SEERaBomb)
pm=simSeerSet()
pm=mk2D(pm,secondS="B")
L=post1PYO(pm$canc,brks=c(0,2,5),binIndx=1,Trt="rad",yearEnd=2012 )
names(L)
names(pm)
with(pm,getE(L$LPYM,D,ageStart,ageEnd,yearEnd,cancerS,secondS))
# }
Run the code above in your browser using DataLab