R/coef_glm.R

In spmodel: Spatial Statistical Modeling and Prediction

#' @rdname coef.spmodel
#' @method coef spglm
#' @order 5
#' @export
coef.spglm <- function(object, type = "fixed", ...) {
  if (type == "fixed") {
    return(object$coefficients$fixed)
  } else if (type == "spcov") {
    spcov_coef <- object$coefficients$spcov
    return(spcov_coef)
  } else if (type == "dispersion") {
    return(object$coefficients$dispersion)
  } else if (type == "randcov") {
    return(object$coefficients$randcov)
  } else {
    stop("Invalid type argument. The type argument must be \"fixed\", \"spcov\", \"dispersion\", or \"randcov\".", call. = FALSE)
  }
}

#' @rdname coef.spmodel
#' @method coefficients spglm
#' @order 6
#' @export
coefficients.spglm <- coef.spglm

#' @rdname coef.spmodel
#' @method coef spgautor
#' @order 7
#' @export
coef.spgautor <- coef.spglm

#' @rdname coef.spmodel
#' @method coefficients spgautor
#' @order 8
#' @export
coefficients.spgautor <- coef.spgautor