AE <- data.frame(
USUBJID = 1:12,
AETERM = "SOME AE TERM",
AEDECOD = "SOME AE PT",
AESTDTC = c("2017-01-01","2017-01-03","2017-01-01T14:26","2017","2017-02","2017" ,"" ,
"2017" ,"2017-01-01T14:26","2017-01-01T14:26","2017-01-01T14","2017-01-01T14:26:02")
,
AEENDTC = c("2017-01-01","2017-01-02","2017-01-01T14:25","2015","2017-01","2016-01-01",
"2000","2017-02","2017-01-01" ,"2017-01","2017-01-01T13","2017-01-01T14:26:01")
,
AESPID = "FORMNAME-R:19/L:19XXXX",
stringsAsFactors=FALSE
)
check_ae_aestdtc_after_aeendtc(AE)
check_ae_aestdtc_after_aeendtc(AE,preproc=roche_derive_rave_row)
AE$AETERM <- NULL
check_ae_aestdtc_after_aeendtc(AE)
Run the code above in your browser using DataLab