AE <- data.frame(USUBJID = c(1), AESTDTC = c("2020-01-01","2020-01-01","2020-02-01","2020-03-01"),
AEENDTC = rep("2020-02-01",4), AEDECOD = letters[c(1,1:3)],
AETERM = letters[c(1,1:3)], AETOXGR = c(1,1:3),
AESPID="FORMNAME-R:5/L:5XXXX",
stringsAsFactors=FALSE)
check_ae_dup(AE)
Run the code above in your browser using DataLab