AE <- data.frame(
USUBJID = 1:5,
AEDTHDTC = c("2018-01-01", "2018-01-02", "2018-01-03","2018-01-04", ""),
AESPID="FORMNAME-R:13/L:13XXXX",
stringsAsFactors = FALSE
)
DS <- data.frame(
USUBJID = c(1,1,2,3,3,4),
DSTERM=c("DEATH","RANDOM THING","ADVERSE EVENT",
"DEATH DUE TO PROGRESSIVE DISEASE","ADVERSE EVENT",
"DEATH DUE TO ABC"),
DSDECOD=c("DEATH","ADVERSE EVENT","DEATH", "DEATH","OTHER", "DEATH"),
stringsAsFactors=FALSE
)
check_dd_death_date(AE,DS)
check_dd_death_date(AE,DS,preproc=roche_derive_rave_row)
Run the code above in your browser using DataLab