Nothing
qresid_betabin <- function(model) {
n <- model@prior.weights
y <- model@y * n
mu <- model@fitted.values
rho <- model@misc$rho
a <- pbetabinom(y - 1, n, mu, rho)
b <- pbetabinom(y, n, mu, rho)
betabin.cdf <- runif(length(y), min = a, max = b)
res <- qnorm(betabin.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.