# NOT RUN {
ID <- c("01", "02", "03")
SITE <- c("site 01", "site 02", "site 03")
AGE <- c("19", "20", "22")
SEX <- c("f", "m", "f")
GLUC_V1 <- c(5.5, 4.1, 9.7)
GLUC_IND_V1 <- c("norm", "no", "cl")
AST_V2 <- c("30", "48", "31")
AST_IND_V2 <- c(NA, "norm", "norm")
df <- data.frame(
ID, SITE, AGE, SEX,
GLUC_V1, GLUC_IND_V1,
AST_V2, AST_IND_V2,
stringsAsFactors = FALSE
)
refs <- system.file("labs_refer.xlsx", package = "dmtools")
obj_lab <- lab(refs, ID, AGE, SEX, "norm", "no")
obj_lab <- check(obj_lab, df)
choose_test(obj_lab, "mis")
# }
Run the code above in your browser using DataLab