AE <- data.frame(
USUBJID = 1:8,
AEDTHDTC = c(NA, "NA", "2015-03-12", "2017-01-22", "1999-11-07","",NA, "2020-01-01"),
AEOUT = c("", "", "","FATAL","RECOVERED/RESOLVED","FATAL","FATAL", NA),
AESPID = "FORMNAME-R:13/L:13XXXX",
stringsAsFactors = FALSE
)
check_ae_aeout(AE)
check_ae_aeout(AE,preproc=roche_derive_rave_row)
AE$AEDTHDTC <- NULL
check_ae_aeout(AE)
AE$AEOUT <- NULL
check_ae_aeout(AE)
Run the code above in your browser using DataLab