# NOT RUN {
library(SEERaBomb)
pm=simSeerSet()
pm=mk2D(pm)
mybrks=c(0,1,5,10)
pm=csd(pm,brkst=mybrks,trts=c("noRad","rad"))
(lab=paste0("b",paste(mybrks,collapse="_")))
(L=mkExcelCsd(pm,lab))
(L=mkExcelCsd(pm,lab,flip=TRUE))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab