R/Hs.r

In DEMEtics: Evaluating the genetic differentiation between populations based on Gst and D values.

Hs<-function(Hj){

#Variables
#------------------------------------------------------------------------------------------------------------------------------
# Input:
#           Hj <- Dest.calc(), Gst.est.calc()
#------------------------------------------------------------------------------------------------------------------------------  

          # A function to calculate the mean heterozygosity within subpopulations.
          # The argument is a vector that contains the heterozygosities within the
          # several subpopulations. 

                  mean(Hj)
                }

          # See: Jost L. (2008). Gst and its relatives do not measure differentiation. 
          # Molecular Ecology 17,4015-4026.