Nothing
likeli <- function(n, m){
if (m < n & m != 0)
Like <- m*log(m/n) + (n-m)*log(1-m/n)
else Like <- 0
return(Like)
}
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.