# NOT RUN {
library(phyclust, quiet = TRUE)
data.path <- paste(.libPaths()[1], "/phyclust/data/crohn.phy", sep = "")
my.snp <- read.phylip(data.path, code.type = "SNP")
ret <- haplo.post.prob(my.snp$org, ploidy = 1)
str(ret)
# }
Run the code above in your browser using DataLab