View source: R/t_ae_pt_soc_diff_slide.R
t_ae_pt_soc_diff_slide | R Documentation |
Adverse event table
t_ae_pt_soc_diff_slide(
adsl,
adae,
arm = "TRT01A",
cutoff = NA,
split_by_study = FALSE,
side_by_side = NULL
)
adsl |
ADSL data set, dataframe |
adae |
ADAE data set, dataframe |
arm |
Arm variable, character, "'TRT01A" by default. |
cutoff |
Cutoff threshold |
split_by_study |
Split by study, building structured header for tables |
side_by_side |
"GlobalAsia" or "GlobalAsiaChina" to define the side by side requirement |
rtables object
* Default arm variables are set to '"TRT01A"' for safety output, and '"TRT01P"' for efficacy output
library(dplyr)
adsl <- eg_adsl %>%
dplyr::mutate(TRT01A = factor(TRT01A, levels = c("A: Drug X", "B: Placebo")))
adae <- eg_adae %>%
dplyr::mutate(
TRT01A = factor(TRT01A, levels = c("A: Drug X", "B: Placebo")),
ATOXGR = AETOXGR
)
out <- t_ae_pt_soc_diff_slide(adsl, adae, "TRT01A", 2)
print(out)
generate_slides(out, paste0(tempdir(), "/ae_diff.pptx"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.