x <- c("A-A", "A-a", "a-a")
as.loci(x, allele.sep = "-")
if (FALSE) {
if (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