Nothing
mathellingerpar <-
function(meanL, varL)
{
distances = diag(0, nrow = length(meanL))
dimnames(distances) = list(names(meanL), names(meanL))
for (i in 2:length(meanL))
{for (j in 1:(i-1))
{distances[i, j] = distances[j, i] = hellingerpar(meanL[[i]], varL[[i]], meanL[[j]], varL[[j]])
}
}
as.dist(distances)
}
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.