adsl <- random.cdisc.data::cadsl
adae <- random.cdisc.data::cadae
datasets <- list(adsl = adsl, adae = adae)
add_filter("REL", "Related AEs", "ADAE", AEREL == "Y", overwrite = TRUE)
apply_filter(adsl, "SE")
apply_filter(adae, "SER_REL")
apply_filter(datasets, "SER_REL_SE")
Run the code above in your browser using DataLab