Nothing
rm(list=ls())
library(SEERaBomb)
load("~/data/SEER/mrgd/cancDef.RData")
load("~/data/SEER/mrgd/popsae.RData")
pm=seerSet(canc,popsae,Sex="Male")
pm=mk2D(pm,secondS=c("CML","CMML","MDS","AML","CLL","ALL")) # pooled race male leukemias
plot2D(pm)
pm
t(canc%>%filter(cancer=="MDS")%>%group_by(yrdx)%>%summarise(count=n()))
t(canc%>%filter(cancer=="CMML")%>%group_by(yrdx)%>%summarise(count=n()))
t(canc%>%filter(cancer=="CML")%>%group_by(yrdx)%>%summarise(count=n()))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.