Nothing
qresid_binom = function(model) {
p.obs <- model$y
n <- model$prior.weights
y <- n * p.obs
pi.hat <- fitted(model)
u <- runif(n)
binom.cdf <- pbinom(round(y)-1, size = n, prob = pi.hat) + u * dbinom(round(y), size = n, prob = pi.hat)
res <- qnorm(binom.cdf)
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.