EX <- data.frame(
USUBJID = 1:10,
EXTRT = rep(1,10),
EXOCCUR = c(rep(1,2),rep(NA,4),rep(2,4)),
EXDOSE = c(rep(NA,4),rep(1,6)),
EXSTDTC = 1:10
)
EX$EXOCCUR[6]="NA"
EX$EXOCCUR[7]=""
EX$EXOCCUR[8]=NA
check_ex_exoccur_mis_exdose_nonmis(EX)
Run the code above in your browser using DataLab