AE <- data.frame(
USUBJID = 1:6,
AEACN = c("DRUG WITHDRAWN",NA,NA,NA,NA,NA),
AETOXGR = c(NA,NA,NA,NA,"5",NA),
AEDECOD=c("NAUSEA","HEADACHE"),
AESPID = "FORMNAME-R:5/L:5XXXX"
)
DS <- data.frame(
USUBJID = 1:3,
DSCAT="DISPOSITION EVENT",
DSSCAT="STUDY TREATMENT",
DSDECOD=c("COMPLETED","ADVERSE EVENT","DEATH")
)
TS <- data.frame(
TSPARMCD="TRT",
TSVAL="CHECK"
)
check_ae_withdr_ds_discon(AE,DS,TS)
check_ae_withdr_ds_discon(AE,DS,TS,preproc=roche_derive_rave_row)
DS$DSSCAT = NULL
check_ae_withdr_ds_discon(AE,DS,TS)
Run the code above in your browser using DataLab