# NOT RUN {
library(survival)
gts_survfit <-
list(
survfit(Surv(ttdeath, death) ~ grade, trial),
survfit(Surv(ttdeath, death) ~ trt, trial)
) %>%
tbl_survfit(times = c(12, 24))
# Example 1 ----------------------------------
add_p_tbl_survfit_ex1 <-
gts_survfit %>%
add_p()
# Example 2 ----------------------------------
# Pass `rho=` argument to `survdiff()`
add_p_tbl_survfit_ex2 <-
gts_survfit %>%
add_p(test = "survdiff", test.args = list(rho = 0.5))
# }
Run the code above in your browser using DataLab