R/squaredHellingerDistance.R

squared.hellinger.distance <-
function(x, y)
{
	warning("Use of squared.hellinger.distance(...) is deprecated!")
	return(squaredHellingerDistance(x,y))
}

squaredHellingerDistance <-
function(x, y)
{
       return (0.5*sum( (sqrt(x)-sqrt(y))**2  ))
}

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.