library(ggplot2) library(ggplotit) library(mstate) data(aidssi) ci <- Cuminc(time=aidssi$time, status=aidssi$status) ggplotit(ci) ggplotit(ci, conf.int=TRUE) ggplotit(ci, conf.int=TRUE, labels=c("event-free","AIDS","SI")) ci <- survfit(Surv(time=aidssi$time, event=aidssi$status, type="mstate")~1) ggplotit(ci) ci <- survfit(Surv(time=aidssi$time, event=aidssi$status, type="mstate")~aidssi$ccr5, conf.int=0.9) ggplotit(ci) ggplotit(ci) + theme_bw() ggplotit(ci) + theme_bw() + facet_wrap(~strata) ggplotit(ci, breaks = 5) + theme_bw() + facet_wrap(~strata)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.