library(gtsummary)

library(flextable)

tbl <-

trial |>

tbl_summary(include = c(age, grade, response))

aa <- tbl%>%

as_flex_table()

aa<-aa %>%

width(j = 1:2, width = c(4, 1))

aa<-align(aa, align = "left", part = "all")

save_as_rtf(aa, path = 'aa.rtf')

library(gtsummary)

a<-trial %>%

select(age, grade) %>%

tbl_summary() %>%

as_hux_table()