DS <- data.frame(
STUDYID = 1,
USUBJID = 1:4,
DSTERM = c("DEATH DUE TO",
"DEATH DUE TO ",
"DEATH DUE TO ADVERSE EVENT",
"DEATH DUE TO UNKNOWN"),
DSDECOD = "DEATH",
DSDTC = "2017-01-01",
DSSTDTC = "2017-01-01",
stringsAsFactors=FALSE
)
check_ds_dsterm_death_due_to(DS)
DS$DSDECOD <- NULL
check_ds_dsterm_death_due_to(DS)
Run the code above in your browser using DataLab