# NOT RUN {
tbl_col_ex1 <-
trial[c("age", "grade", "response")] %>%
tbl_summary() %>%
modify_header(stat_0 = "**All Patients**, N = {N}")
tbl_col_ex2 <-
trial[c("age", "grade", "response", "trt")] %>%
tbl_summary(by = trt) %>%
modify_header(
stat_by = "**{level}**, N = {n} ({style_percent(p, symbol = TRUE)})"
)
# }
Run the code above in your browser using DataLab