CM <- data.frame(
USUBJID = 1:3,
CMTRT = c("CM1","CM2","CM3"),
CMSTDTC = c("2017-01-01","2017---01","2017-01-02"),
CMENDTC = c("2017-02-01","2017-03-01","2017---01"),
CMSPID = "/F:XXX-D:12345-R:123",
stringsAsFactors=FALSE
)
check_cm_missing_month(CM)
check_cm_missing_month(CM,preproc=roche_derive_rave_row)
CM$CMSTDTC = NULL
check_cm_missing_month(CM)
Run the code above in your browser using DataLab