# NOT RUN {
# Example 1 ----------------------------------
add_q_ex1 <-
trial[c("trt", "age", "grade", "response")] %>%
tbl_summary(by = trt) %>%
add_p() %>%
add_q()
# Example 2 ----------------------------------
add_q_ex2 <-
trial[c("trt", "age", "grade", "response")] %>%
tbl_uvregression(
y = response,
method = glm,
method.args = list(family = binomial),
exponentiate = TRUE
) %>%
add_global_p() %>%
add_q()
# }
Run the code above in your browser using DataLab