LB <- data.frame(
USUBJID = 1:10,
LBSTRESC = "5",
LBSTRESN = 1:10,
LBORRES = "5",
LBSTRESU = "g/L",
LBTESTCD = "ALB",
LBDTC = 1:10,
stringsAsFactors=FALSE
)
check_lb_lbstresu(LB)
LB$LBSTRESU[1]=""
check_lb_lbstresu(LB)
LB$LBSTRESU[2]="NA"
check_lb_lbstresu(LB)
LB$LBSTRESU[3]=NA
check_lb_lbstresu(LB)
LB$LBSPID= "FORMNAME-R:2/L:2XXXX"
check_lb_lbstresu(LB,preproc=roche_derive_rave_row)
LB$VISIT= "SCREENING"
check_lb_lbstresu(LB)
LB$LBSTRESU=NULL
check_lb_lbstresu(LB)
Run the code above in your browser using DataLab