# test with sample data
AE <- data.frame(
USUBJID = 1:3,
DOMAIN = c(rep("AE", 3)),
AESEQ = 1:3,
AESTDTC = 1:3,
AETERM = c("FLU COUGH", "HEADACHE", "FEVER"),
AEDECOD = c("", "Headache", "Fever"),
AETOXGR = 1:3,
AESEV = 1:3,
AESPID = "FORMNAME-R:16/L:16XXXX",
stringsAsFactors = FALSE
)
check_ae_aetoxgr(AE)
AE$AETOXGR[1] <- NA
check_ae_aetoxgr(AE)
AE$AESEV[1] <- NA
check_ae_aetoxgr(AE,preproc=roche_derive_rave_row)
AE$AETOXGR <- NULL
check_ae_aetoxgr(AE,preproc=roche_derive_rave_row)
AE$AESPID <- NULL
check_ae_aetoxgr(AE,preproc=roche_derive_rave_row)
AE$AESEV <- NULL
check_ae_aetoxgr(AE)
AE$AEDECOD <- NULL
check_ae_aetoxgr(AE)
Run the code above in your browser using DataLab