adsl <- tibble::tribble(
~USUBJID, ~SEX,
"01-701-1015", "F",
"01-701-1023", "M",
"01-701-1028", "M"
)
adae <- tibble::tribble(
~USUBJID, ~AESER, ~AEACN,
"01-701-1015", "Y", "DOSE NOT CHANGED",
"01-701-1015", "N", "DOSE NOT CHANGED",
"01-701-1028", "N", "DRUG WITHDRAWN"
)
subject_level_flag(
data = adsl,
data_long = adae,
ANY_AESER = AESER == "Y",
ANY_DRUG_WITHDRAWN = AEACN == "DRUG WITHDRAWN"
)
Run the code above in your browser using DataLab