Nothing
qresid_pois <- function(model) {
y <- model$y
u <- runif(n = length(y))
mu <- fitted(model)
cdf.pois <- ppois(y-1, lambda = mu) + u * dpois(y, lambda = mu)
res <- qnorm(cdf.pois)
res
}
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.