cuminc <-
visR::estimate_cuminc(
data = tidycmprsk::trial,
strata = "trt",
CNSR = "death_cr",
AVAL = "ttdeath"
)
cuminc
cuminc %>%
visR::visr() %>%
visR::add_CI() %>%
visR::add_risktable(statlist = c("n.risk", "cum.event"))
Run the code above in your browser using DataLab