R/check_lb_lbstnrlo_lbstnrhi.R
check_lb_lbstnrlo_lbstnrhi.Rd
This check looks for missing lab reference ranges (LBSTNRLO, LBSTNRHI) in standard units when numeric result in standard unit (LBSTRESN) is not missing and returns a data frame
check_lb_lbstnrlo_lbstnrhi(DM, LB)
DM SDTM dataset with variable USUBJID, SITEID
Lab SDTM dataset with variables USUBJID, LBTEST, LBSTRESN, LBSTNRLO, LBSTNRHI
boolean value if check failed or passed with 'msg' attribute if the test failed
LB <- data.frame(
USUBJID = "1",
LBTEST = "Albumin",
LBSTRESN = 1:10,
LBSTNRLO = 1:10,
LBSTNRHI = 1:10,
stringsAsFactors=FALSE
)
LB$LBSTNRLO[1]=""
LB$LBSTNRLO[2]="NA"
LB$LBSTNRLO[3]=NA
LB$LBSTNRHI[3]=""
LB$LBSTNRHI[4]="NA"
LB$LBSTNRHI[5]=NA
DM <- data.frame(
USUBJID = "1",
SITEID = "123456",
stringsAsFactors=FALSE
)
check_lb_lbstnrlo_lbstnrhi(DM, LB)
#> [1] FALSE
#> attr(,"msg")
#> [1] "Lab tests with missing reference range in standard units when standard numeric result is not missing: 1 LBTEST(s) across 1 unique SITEID(s). "
#> attr(,"data")
#> SITEID LBTEST Freq
#> 1 123456 Albumin 5