R/dispersion_checks.R

In spmodel: Spatial Statistical Modeling and Prediction

dispersion_checks <- function(family, dispersion) {
  # dispersion can't be missing
  if (!is.null(dispersion) && dispersion != 1 && family %in% c("binomial", "poisson")) {
    stop(paste(family, "dispersion parameter must be fixed at one."), call. = FALSE)
  }
}