# Find out the round-robin multilocus genotype assignments for P. ramorum
data(Pram)
pmlg_rr <- rrmlg(Pram)
head(pmlg_rr)
if (FALSE) {
# You can find out how many unique genotypes are found without each locus:
colSums(!apply(pmlg_rr, 2, duplicated))
}
Run the code above in your browser using DataLab