# NOT RUN {
set <- c("A/A", "A/B", "A/B", "B/B", "B/B", "B/B",
"B/B", "B/C", "C/C", "C/C")
set <- genotype(set, alleles=c("A", "B", "C"), reorder="yes")
plot(set)
plot(set, type="allele", what="number")
# }
Run the code above in your browser using DataLab