Nothing
"Expllike2" <-
function(lambda,opar)
{
d<-sum(opar[[2]])
return(d*log(lambda)-lambda*sum(opar[[1]]))
}
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.