# \donttest{
library(tidycmprsk)
cuminc(Surv(ttdeath, death_cr) ~ trt, trial) %>%
ggcuminc(outcome = "death from cancer") +
add_confidence_interval() +
add_risktable() +
scale_ggsurvfit()
cuminc(Surv(ttdeath, death_cr) ~ trt, trial) %>%
ggcuminc(outcome = c("death from cancer", "death other causes")) +
add_risktable() +
scale_ggsurvfit()
# using the survival multi-state model
survfit2(Surv(ttdeath, death_cr) ~ trt, trial) %>%
ggcuminc(outcome = "death from cancer") +
add_confidence_interval() +
add_risktable() +
scale_ggsurvfit()
# }
Run the code above in your browser using DataLab