## Not run:
# library(SEERaBomb)
# load("~/data/SEER/mrgd/cancDef.RData") #load in canc
# load("~/data/SEER/mrgd/popsae.RData") # load in popsae
# canc=canc%>%select(-reg,-recno,-agerec,-numprims,-COD,
# -age19,-age86,-radiatn,-ICD9,-db,-histo3)
# popsa=popsae%>%group_by(db,race,sex,age,year)%>%summarize(py=sum(py)) # sum on regs
# pm=seerSet(canc,popsa,Sex="male",ageStart=0,ageEnd=100) #pooled (races) male seerSet
# pm=mk2D(pm,secondS=c("AML","MDS"))
# firstS=c("NHL","MM")
# pm=csd(pm,brkst=c(0,1,5),trts=c("rad","noRad"),firstS=firstS)
# pm$DF
# getDF(pm)
# ## End(Not run)
Run the code above in your browser using DataLab