R/coef.slmfit.R

In highamm/FPBK-with-Detection: Finite Population Block Kriging with Detection

#' Extract Model Coefficients
#'
#' @param object a \code{\link{slmfit}} object
#' @param ... additional arguments
#' @return a vector of fitted model coefficients.
#' @export

coef.slmfit <- function(object, ...)
{
  coef.vec <- object$CoefficientEsts
  return(coef.vec)
}