Nothing
## computes the ESOV distance between two vectors, x1 and x2
es <- function(x1, x2) sum( x1 * log( 2 * x1 / (x1 + x2) ) + x2 * log( 2 * x2 / (x1 + x2) ), na.rm = TRUE )
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.