pheno <- data.frame(a = sample(letters[1:2], 5, replace = TRUE), b = runif(5),
c = sample(c("a/a","a/b", "b/b"), 5, replace = TRUE))
pheno <- preparePhenotype(pheno, variable_names = c("a", "c"),
variable_types = c("categorical", "dominant"))
pheno
Run the code above in your browser using DataLab