R/Hj.values.1pop.r

In alj1983/DEMEtics: Evaluating The Genetic Differentiation Between Populations Based on Gst and D Values

# Function used within the function calc.r

  Calculate.Hj.values.1pop <- function(allelefrequency3.1poptable){

        Hj.one.population<-Hj(as.numeric(as.vector(allelefrequency3.1poptable$proportion)))
        # The Hj-value for the actual locus and population is calculated.
        Hj.one.population
  }