# NOT RUN {
library(survival)
fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial)
fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial)
# Example 1 ----------------------------------
add_nevent.tbl_survfit_ex1 <-
list(fit1, fit2) %>%
tbl_survfit(times = c(12, 24)) %>%
add_n() %>%
add_nevent()
# }
Run the code above in your browser using DataLab