Nothing
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 ))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.