Qresiduals.negbin <- function(model, plot.it = T) {
qres <- qresid_nbinom(model)
if(plot.it) qres_plot(qres)
return(invisible(qres))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.