DM <- data.frame(
STUDYID = 1,
USUBJID = 1:10
)
VS <- data.frame(
STUDYID = 1,
USUBJID = 1:10,
VSTEST = "HEIGHT",
VSTESTCD = "HEIGHT",
VSSTRESN = 1:10,
VISIT = 1:10
)
check_vs_height(VS,DM)
DM <- data.frame(
STUDYID = 1,
USUBJID = 1:11
)
VS$VSSTRESN[1] = NA
VS$VSSTRESN[2] = "NA"
VS$VSSTRESN[3] = ""
VS$VSSTRESN[4] = "."
check_vs_height(VS,DM)
Run the code above in your browser using DataLab