# \donttest{
# Example 1 ----------------------------------
add_p_ex1 <-
trial[c("age", "grade", "trt")] %>%
tbl_summary(by = trt) %>%
add_p()
# Example 2 ----------------------------------
add_p_ex2 <-
trial %>%
select(trt, age, marker) %>%
tbl_summary(by = trt, missing = "no") %>%
add_p(
# perform t-test for all variables
test = everything() ~ "t.test",
# assume equal variance in the t-test
test.args = all_tests("t.test") ~ list(var.equal = TRUE)
)
# }
Run the code above in your browser using DataLab