# \donttest{
# Example 1 ----------------------------------
bold_p_ex1 <-
trial[c("age", "grade", "response", "trt")] %>%
tbl_summary(by = trt) %>%
add_p() %>%
bold_p(t = 0.65)
# Example 2 ----------------------------------
bold_p_ex2 <-
glm(response ~ trt + grade, trial, family = binomial(link = "logit")) %>%
tbl_regression(exponentiate = TRUE) %>%
bold_p(t = 0.65)
# }
Run the code above in your browser using DataLab