DS <- data.frame(
USUBJID = c("ID1","ID1","ID2","ID2","ID3","ID3"),
DSDECOD = c("RANDOMIZATION","OTHER THING","RANDOMIZATION",
"OTHER THING","RANDOMIZATION","RANDOMIZATION")
, stringsAsFactors = FALSE
)
check_ds_duplicate_randomization(DS)
DS$DSDECOD <- NULL
check_ds_duplicate_randomization(DS)
Run the code above in your browser using DataLab