R/Qresiduals.vglm.R

In reealpeppe/glmdiag: A Collection of Graphic Tools for GLM Diagnostics and some Extensions

Qresiduals.vglm <- function(model, plot.it = T) {
  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))
}