meta <- meta_ae_example()
outdata <- prepare_ae_summary(meta,
population = "apat",
observation = "wk12",
parameter = "any;rel;ser"
)
outdata |>
format_ae_summary() |>
tlf_ae_summary(
source = "Source: [CDISCpilot: adam-adsl; adae]",
path_outdata = tempfile(fileext = ".Rdata"),
path_outtable = tempfile(fileext = ".rtf")
)
Run the code above in your browser using DataLab