# NOT RUN {
# Example 1 ----------------------------------
library(survival)
fit1 <- survfit(Surv(ttdeath, death) ~ trt, trial)
tbl_strata_ex1 <-
tbl_survival(
fit1,
times = c(12, 24),
label = "{time} Months"
)
# Example 2 ----------------------------------
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