R/f.beta.haplo.freq.asymp.R

Defines functions f.beta.haplo.freq.asymp

f.beta.haplo.freq.asymp <- function(haplo.freq){ 
	.haplo.freq <- haplo.freq/sum(haplo.freq)
	.sum <- 1/.haplo.freq[1]
	.beta <- log(.haplo.freq[-1]*.sum)
	return(c(0,.beta))
}

Try the Haplin package in your browser

Any scripts or data that you put into this service are public.

Haplin documentation built on May 20, 2022, 5:07 p.m.