Nothing
lik <- function(try, data)
{
lik <- 0
for (m in 1:length(try))
{
lik <- likeli(try[[m]]$total, try[[m]]$active) + lik
}
lik<-likeli(nrow(data), sum(data$y)) - lik
return(lik)
}
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.