# NOT RUN {
id <- c("01", "02", "03")
site <- c("site 01", "site 02", "site 03")
sex <- c("f", "m", "f")
preg_yn_e2 <- c("y", "y", "y")
preg_res_e2 <- c("neg", "neg", "neg")
preg_yn_e3 <- c("y", "y", "n")
preg_res_e3 <- c("neg", "pos", "unnes")
df <- data.frame(
id, site, sex,
preg_yn_e2, preg_res_e2,
preg_yn_e3, preg_res_e3,
stringsAsFactors = FALSE )
preg <- system.file("preg.xlsx", package = "dmtools")
obj_short <- short(preg, id, "res", c("site", "sex"))
obj_short <- check(obj_short, df)
get_result(obj_short)
# }
Run the code above in your browser using DataLab