AET01_summary <- AET01_table(
adsl = adsl,
adae = aesi,
patient_var = "USUBJID",
treat_var = "ARM",
aesi_vars = c("FATAL", "SER", "SERWD", "SERDSM", "RELSER",
"WD", "DSM", "REL", "RELWD", "RELDSM", "SEV")
)
print(AET01_summary)
Run the code above in your browser using DataLab