library(SEERaBomb)
pm=simSeerSet()
pm=mk2D(pm)
mybrks=c(0,1,5,10)
pm=tsd(pm,brks=mybrks,trts=c("noRad","rad"))
(lab=paste0("b",paste(mybrks,collapse="_")))
(L=mkExcel(pm,lab))
(L=mkExcel(pm,lab,flip=TRUE))
Run the code above in your browser using DataLab