Nothing
pztp <-
function(y,lambda){
dummy<-exp(-lambda)
#cat(paste("length of dummy: ",length(dummy),"\n"))
#cat(paste("length of ppois: ",length(ppois(y,lambda)),"\n"))
#cat(paste("---\n"))
out<-(ppois(y,lambda)-dummy)/(1-dummy)
out[y<1]=0
return(out)
}
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.