R/Likelihood_counts.R

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

Defines functions Likelihood_counts

Documented in Likelihood_counts

Likelihood_counts <-
function(counts,sample_sizes,allele.frequencies){
		LnL_counts_mat <- counts*log(allele.frequencies) + (sample_sizes-counts)*log(1-allele.frequencies)
		return(LnL_counts_mat)
	}

Try the BEDASSLE package in your browser