meta <- meta_ae_example()
outdata <- meta |>
prepare_ae_summary(
population = "apat",
observation = "wk12",
parameter = "any;rel;ser"
) |>
extend_ae_summary_eaer(adj_unit = "month")
outdata |>
format_ae_exp_adj() |>
tlf_ae_exp_adj(
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