TR <- data.frame(USUBJID = 1:5,
TRTESTCD = c("OTHER", rep("LDIAM", 4)),
TRLINKID = 1:5,
TRDTC = 1:5,
VISIT = LETTERS[1:5],
TRORRES = LETTERS[1:5],
TRSTRESN = 1:5,
TRSTAT = "",
TREVAL = "INVESTIGATOR",
TRSPID = "FORMNAME-R:19/L:19XXXX",
stringsAsFactors = FALSE)
check_tr_trstresn_ldiam(TR)
TR1 <- TR
TR1$TRSTAT <- NULL
TR1$TREVAL <- NULL
TR1$TRSPID <- NULL
check_tr_trstresn_ldiam(TR1)
TR2 <- TR
TR2$TRSTRESN <- c("", "NA", NA, 1, 1)
check_tr_trstresn_ldiam(TR2)
check_tr_trstresn_ldiam(TR2,preproc=roche_derive_rave_row)
Run the code above in your browser using DataLab