QS <- data.frame(USUBJID = c(1,1,1,2,2,2),
QSDTC = c("2015-06-30", "2015-09-30", "2015-12-30",
"2015-06-30", "2015-09-30", "2015-12-30"),
QSCAT = "A",
VISIT = c("Week 1", "Week 12", "Week 24", "Week 1", "Week 12", "Week 24"),
QSSTAT = c("Not Done","NOT DONE","not done", rep("",3)),
QSREASND = c("Reasons",rep("",5)),
stringsAsFactors = FALSE)
check_qs_qsstat_qsreasnd(QS)
QS$QSSTAT=NULL
check_qs_qsstat_qsreasnd(QS)
Run the code above in your browser using DataLab