powered by
Demographic table with gtsummary
gt_t_dm_slide(adsl, arm = "TRT01P", vars = c("AGE", "SEX", "RACE"))
gtsummary object
ADSL data set, dataframe
Arm variable, character, "`TRT01P" by default.
Characters of variables
library(dplyr) adsl <- eg_adsl out1 <- gt_t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE", "ETHNIC", "COUNTRY")) print(out1) generate_slides(out1, paste0(tempdir(), "/dm.pptx"))
Run the code above in your browser using DataLab