data(Example.transformed)
Example1 <- Example.transformed
Bootstrapping.Dest(Example1,bt=10)
# 10 bootstrap values are created. This is not enough to test real data
# but avoids long calculation time in this example.
allelefreq(Example1)
# The allelefrequencies as well as the sample sizes
# are calculated.
Dest.calc(allelefrequency, sample.sizes)
# The empirical Dest values
# for each locus and over all loci are calculated.
p.val(D.values$Mean.Dest.value,Dest.means)
p.value
Run the code above in your browser using DataLab