## Not run:
# library(SEERaBomb)
# pm=simSeerSet()
# pm=mk2D(pm)
# mybrks=c(0,1,5,10)
# pm=tsd(pm,brks=mybrks,trts=c("noRad","rad"),PYM=TRUE)
# (lab=paste0("b",paste(mybrks,collapse="_")))
# LM=pm$L[[lab]]$'rad'
# names(LM)
# LM$PyM
# LM$Obs
# LM$Exp
# table(LM$PyM$`(0,1]`$cancer2)
# table(LM$PyM$`(1,5]`$cancer2)
# table(LM$PyM$`(5,10]`$cancer2)
# ## End(Not run)
Run the code above in your browser using DataLab