vs <- data.frame(
STUDYID = 1,
USUBJID = 1,
VSSPID = c("1","2","1","2"),
VISIT = 1,
VSDTC = c("2010-01-01","2010-01-01","2010-01-01","2010-01-01"),
VSTESTCD = c("SYSBP","SYSBP",
"DIABP","DIABP")
,
VSSTRESN = c(80,120,100,80)
)
vs0 <- subset(vs, select = c(USUBJID, VSSPID, VSSTRESN))
check_vs_sbp_lt_dbp(VS=vs)
check_vs_sbp_lt_dbp(VS=vs0)
Run the code above in your browser using DataLab