AE <- data.frame(
USUBJID = 1:10,
AETOXGR = c(1:5,5,5,5,5,5),
AEDTHDTC = c(rep(NA,4),rep("2020-01-01",6)),
AESDTH = c(rep(NA,4),rep("Y",6)),
AEOUT = c(rep(NA,4),rep("FATAL",6)),
AESPID = "FORMNAME-R:13/L:13XXXX"
)
check_ae_death(AE)
check_ae_death(AE,preproc=roche_derive_rave_row)
AE$AEDTHDTC[5]="NA"
AE$AEDTHDTC[6]=NA
AE$AEDTHDTC[7]=""
AE$AESDTH[8]=NA
AE$AEOUT[9]=NA
check_ae_death(AE)
check_ae_death(AE,preproc=roche_derive_rave_row)
Run the code above in your browser using DataLab