DS <- data.frame(
USUBJID = c(rep(1,3),rep(2,3),rep(3,3)),
DSSCAT= rep(c("STUDY DISCONTINUATION", "ADVERSE EVENT", "PROTOCOL"),3),
stringsAsFactors=FALSE
)
check_ds_dsscat(DS)
DS$DSSCAT[8] = "STUDY DISCONTINUATION"
check_ds_dsscat(DS)
DS$DSSCAT = NULL
check_ds_dsscat(DS)
Run the code above in your browser using DataLab