# \donttest{
# Example 1 ----------------------------------
sort_filter_p_ex1 <-
trial %>%
select(age, grade, response, trt) %>%
tbl_summary(by = trt) %>%
add_p() %>%
filter_p(t = 0.8) %>%
sort_p()
# Example 2 ----------------------------------
sort_p_ex2 <-
glm(response ~ trt + grade, trial, family = binomial(link = "logit")) %>%
tbl_regression(exponentiate = TRUE) %>%
sort_p()
# }
Run the code above in your browser using DataLab