data(Pinf) # Load P. infestans data.
setpop(Pinf) <- ~Country # Set the population to be at the country level
private_alleles(Pinf)
# An example of how this data can be displayed.
library("ggplot2")
Pinfpriv <- private_alleles(Pinf, report = "data.frame")
ggplot(Pinfpriv) + geom_tile(aes(x = population, y = allele, fill = count))
Run the code above in your browser using DataLab