EX <- data.frame(
USUBJID = 1:10,
EXTRT = 1:10,
EXSTDTC = 1:10,
EXDOSE = 1:10,
EXOCCUR = as.character(c(rep("Y",5),rep("N",5))),
EXDOSU = as.character(rep("mg",10))
)
EX$EXDOSU[1] = ""
EX$EXDOSU[2] = "NA"
EX$EXDOSU[3] = NA
check_ex_exdosu(EX)
EX$EXSTDTC = NULL
check_ex_exdosu(EX)
Run the code above in your browser using DataLab