# NOT RUN {
x <- c("A-A", "A-a", "a-a")
as.loci(x, allele.sep = "-")
# }
# NOT RUN {
require(adegenet)
data(nancycats)
x <- as.loci(nancycats)
y <- loci2genind(x) # back to "genind"
identical(nancycats@tab, y@tab)
identical(nancycats@pop, y@pop)
# }
Run the code above in your browser using DataLab