R/identify_invariant_loci.R

In BEDASSLE: Quantifies Effects of Geo/Eco Distance on Genetic Differentiation

Defines functions identify_invariant_loci

Documented in identify_invariant_loci

identify_invariant_loci <-
function(allele.counts){
		there.are.invariants <- FALSE
			if(length(unique(allele.counts)) < 2){
				there.are.invariants <- TRUE
			}
		return(there.are.invariants)
	}

Try the BEDASSLE package in your browser