R/Ht.est.r

In alj1983/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)
                                            }