AE <- data.frame(
USUBJID = 1:10,
DOMAIN = "AE",
AEDTHDTC = c(NA, "NA", rep("2015-03-12",4), NA, NA, "2020-01-01", ""),
AEENDTC = c(NA, "NA", rep("2015-03-12",4), NA, "2020-01-01", NA, ""),
AEOUT = c("", "", "","FATAL","RECOVERED/RESOLVED", rep("FATAL",5)),
AETERM = 1:10,
AESPID = "FORMNAME-R:13/L:13XXXX",
stringsAsFactors = FALSE
)
check_ae_aeout_aeendtc_aedthdtc(AE)
check_ae_aeout_aeendtc_aedthdtc(AE,preproc=roche_derive_rave_row)
AE$AESPID <- NULL
check_ae_aeout_aeendtc_aedthdtc(AE)
AE$AEDTHDTC <- NULL
AE$AEOUT <- NULL
check_ae_aeout_aeendtc_aedthdtc(AE)
Run the code above in your browser using DataLab