# NOT RUN {
library(survival)
fit1 <- survfit(Surv(ttdeath, death) ~ trt, trial)
tbl_strata_ex1 <-
tbl_survival(fit1,
times = c(12, 24),
label = "{time} Months"
)
fit2 <- survfit(Surv(ttdeath, death) ~ 1, trial)
tbl_nostrata_ex2 <-
tbl_survival(fit2,
probs = c(0.1, 0.2),
header_estimate = "**Months**"
)
# }
Run the code above in your browser using DataLab