meta <- meta_ae_example()
outdata <- meta |>
prepare_ae_summary(
population = "apat",
observation = "wk12",
parameter = "any;ser;rel"
) |>
extend_ae_summary_eaer(adj_unit = "month")
tbl <- outdata |>
format_ae_exp_adj()
head(tbl$tbl)
Run the code above in your browser using DataLab