R/print.summary.pspatreg.R

In pspatreg: Spatial and Spatio-Temporal Semiparametric Regression Models with Spatial Lags

#' @name print.summary.pspatreg
#' @rdname print.summary.pspatreg
#'
#' @title Print method for objects of class summary.pspatreg.
#'
#' @param x object of class \emph{summary.pspatreg}.
#' @param digits number of digits to show in printed tables.
#'   Default: max(3L, getOption("digits") - 3L).
#' @param ... further arguments passed to or from other methods.
#'
#' @return 
#'   No return value, called for side effects.
#' 
#' @author 
#' \tabular{ll}{ 
#'   Roman Minguez  \tab \email{roman.minguez@@uclm.es} \cr
#'   Roberto Basile \tab \email{roberto.basile@@univaq.it} \cr Maria Durban \tab
#'   \email{mdurban@@est-econ.uc3m.es} \cr Gonzalo Espana-Heredia \tab
#'   \email{gehllanza@@gmail.com} \cr 
#'  }
#'  
#' @seealso
#' \itemize{
#'   \item \code{\link{summary.pspatreg}} Summary method for \emph{pspatreg} objects.
#' }
#'
#' @examples
#' # See examples for \code{\link{pspatfit}} function.
#' @export
print.summary.pspatreg <- function(x, 
                  digits = max(3L, getOption("digits") - 3L), ...)
{
  cat("\n Call \n")
  print(x$call)
  if(!is.null(x$coef_par_table)) {
    cat("\n Parametric Terms \n ")
    printCoefmat(x$coef_par_table, P.values = TRUE, has.Pvalue = TRUE)
  }
  if(!is.null(x$coef_nopar_table)) {
    cat("\n Non-Parametric Terms \n ")
    printCoefmat( x$coef_nopar_table, P.values = FALSE, has.Pvalue = FALSE)
  }
  if(!is.null(x$coef_spttrend_table)) {
    cat("\n Non-Parametric Spatio-Temporal Trend \n")
    printCoefmat( round(x$coef_spttrend_table,3),
                  P.values = FALSE, has.Pvalue = FALSE)
  }
  cat("\n Goodness-of-Fit \n ") 
  cat("\n EDF Total:", formatC(x$edftot, 
                               digits = 6, width = 6),
      "\n Sigma:", formatC(x$sigma, digits = 6, width = 6),
      "\n AIC: ", formatC(x$aic, digits = 6, width = 6),
      "\n BIC: ", formatC(x$bic, digits = 6, width = 6))

  invisible(x)
}