AE <- data.frame(
STUDYID = 1,
USUBJID = 1:3,
AEDTHDTC = c(NA,1,NA),
AESDTH = c(NA,"Y",NA),
AEOUT = c(NA,"FATAL",NA),
AETOXGR = c(NA,"5",NA)
)
DS <- data.frame(
STUDYID = 1,
USUBJID = 1:3,
DSDECOD = c(NA,"DEATH",NA),
DSSTDTC = c(NA,"DSDATE",NA)
)
DM <- data.frame(
STUDYID = 1,
USUBJID = 1:3,
DTHFL=c(NA,"Y","Y"),
DTHDTC = c(NA,"DMDATE","DMDATE")
)
check_dm_ae_ds_death(DM,DS,AE)
DS$DSDECOD = NULL
check_dm_ae_ds_death(DM,DS,AE)
Run the code above in your browser using DataLab