# load the microbov dataset
data(microbov)
# Let's look at a single population for now. Howsabout Zebu
Zebu <- popsub(microbov, "Zebu")
summary(Zebu)
# Take note of the Number of alleles per population and the Observed
# heterozygosity as we go through each method.
# Permute Alleles: maintain allelic state; heterozygosity varies.
summary(shufflepop(Zebu, method=1))
if (FALSE) {
# Parametric Bootstrap: do not maintain allelic state or heterozygosity
summary(shufflepop(Zebu, method=2))
# Non-Parametric Bootstrap: do not maintain allelic state or heterozygosity.
summary(shufflepop(Zebu, method=3))
# Multilocus Style: maintain allelic state and heterozygosity.
summary(shufflepop(Zebu, method=4))
}
Run the code above in your browser using DataLab