# NOT RUN {
### Users can test the example in their own computer,
##as this is pairwise differentiation, using parallel
# will save more time
#f <- system.file('extdata',package='HierDpart')
#infile <- file.path(f, "Island.gen")
#library(adegenet)
#Islandfile=read.genepop(infile,ncode=3)
#Islandfreq=tab(Islandfile,freq=TRUE)
#IslandpwD=pwDeltaD(Islandfreq,para=FALSE)
#print(IslandpwD)
# }
Run the code above in your browser using DataLab