R/harmonic.r

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

#Function called within Gst.est and Dest and H.out

harmonic<-function(values,n){
                                     out <- n/sum(1/values)
                                     invisible(out)
                                      }