# NOT RUN {
tbl_uvglm_bold_p_ex <-
trial %>%
dplyr::select(age, marker, response, grade) %>%
tbl_uvregression(
method = glm,
y = response,
method.args = list(family = binomial),
exponentiate = TRUE
) %>%
bold_p(t = 0.25)
# }
Run the code above in your browser using DataLab