EX <- data.frame(
USUBJID = 1:3,
EXSEQ = 1:3,
EXSTDTC = 1:3,
EXTRT = c(1,2,NA),
EXOCCUR = "Y",
EXDOSE = 1:3,
VISIT = c("CYCLE 1 DAY 1", "CYCLE 2 DAY 1", "CYCLE 3 DAY 1")
)
check_ex_exdose_exoccur(EX)
EX$EXDOSE[3]=NA
check_ex_exdose_exoccur(EX)
EX$EXVISIT = NULL
check_ex_exdose_exoccur(EX)
EX$EXDOSE = NULL
check_ex_exdose_exoccur(EX)
Run the code above in your browser using DataLab