R/harmonic.r

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