R/cellularFraction.R

'cellularFraction' <- function (f_hat, qt, sq)
{
	alpha = signif( (2*f_hat)/(sq + (2*f_hat - qt*f_hat)), 3)
	return(invisible(alpha))
}
ndbrown6/CNtu documentation built on March 16, 2023, 1:01 a.m.