Nothing
## Compute the entropy of a distribution
entropy <- function(distrib, base=exp(1))
{
distrib <- distrib[distrib!=0]
p <- distrib/sum(distrib)
e <- -sum(p*log(p, base=base))
return(e)
}
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.