Nothing
Qresiduals.glm <- function(model, plot.it = TRUE) {
fam = model$family$family
not.admitted <- c('quasi', 'quasibinomial', 'quasipoisson')
if(fam %in% not.admitted) stop("Can't derive quantile residuals for quasi-GLM")
qres <- switch(fam,
Gamma = qresid_gamma(model),
poisson = qresid_pois(model),
binomial = qresid_binom(model),
inverse.gaussian = qresid_invgauss(model),
gaussian = qresid_gaussian(model)
)
if(plot.it) qres_plot(qres)
return(invisible(qres))
}
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.