Nothing
Qresiduals.vglm <- function(model, plot.it = TRUE) {
fam <- model@family@vfamily
if(fam != 'betabinomial') stop('Only betabinomial models are admitted within VGAM package')
qres <- qresid_betabin(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.