data(genotype1)
head(genotype1)
genotype2 = cutEachCol(genotype1[, -11], ploidy = 2)
head(genotype2)
S = c(rep(TRUE, 8), rep(FALSE, 2))
## Not run:
# outPut = selectK.R(genotype2, S, Kmax = 6, ploidy = 2, Kmin=1)
# isInFile.R(K = 5, S, "genotype2_ExploredModels.txt", header = TRUE)
# isInFile.R(K = 5, rep(TRUE, 10), "genotype2_ExploredModels.txt", header = TRUE)
#
# file.remove("genotype2_ExploredModels.txt")
# ## End(Not run)
Run the code above in your browser using DataLab