R/symmetricAlphaDivergence.R

symmetric.alpha.divergence <-
function(x, y)
{
	warning("Call to symmetric.alpha.divergence(...) is deprecated!");
	return(symmetricAlphaDivergence(x,y));
}


symmetricAlphaDivergence <-
function(x, y)
{
	return ( 4*(1-sum(sqrt(x*y)) ))
	
}

Try the pdc package in your browser

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

pdc documentation built on May 2, 2019, 9 a.m.