# NOT RUN {
library(survival)
t1 <-
glm(response ~ trt + grade + age, trial, family = binomial) %>%
tbl_regression(exponentiate = TRUE)
t2 <-
coxph(Surv(ttdeath, death) ~ trt + grade + age, trial) %>%
tbl_regression(exponentiate = TRUE)
tbl_merge_ex <-
tbl_merge(
tbls = list(t1, t2),
tab_spanner = c("Tumor Response", "Time to Death")
)
# }
Run the code above in your browser using DataLab