Nothing
likelihood <-
function(po, ne, lamda, thres)
{
pneg=stats::ppois(thres-1, lamda)
ppos=1-pneg
return (log(ppos)*po+log(pneg)*ne)
}
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.