# NOT RUN {
f <- system.file('extdata',package='HierDpart')
infile <- file.path(f, "Island.gen")
boottest=boot.ppDeltaD(infile, ncode=3, nboot=999, quant = c(0.025, 0.975), diploid = TRUE)
print_boot_ppDeltaD(boottest)
# }
Run the code above in your browser using DataLab