R/Ht.est.r

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

# Function called within Dest.r and Gst.est.r

          Ht.est<-function(Ht,Hs.est,N,n){
                                            out <- Ht+ (Hs.est/(2*N*n))
                                            invisible(out)
                                            }