Nothing
hellinger.distance <-
function(x, y)
{
warning("Use of hellinger.distance(...) is deprecated!")
return(hellingerDistance(x,y))
}
hellingerDistance <-
function(x, y)
{
return( 1/(sqrt(2))* sqrt( 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.