R/print.R

In ConsReg: Fits Regression & ARMA Models Subject to Constraints to the Coefficient

#' @export
#' @rdname print.ConsReg

print.ConsReg <- function (x, ...)
{
  cat("\nCall:\n", paste(deparse(x$call), sep = "\n",
                         collapse = "\n"), "\n\n", sep = "")
  if (length(stats::coef(x))) {
    cat("Coefficients:\n")
    digits = 3
    print.default(format(stats::coef(x), digits = digits), print.gap = 2L,
                  quote = FALSE, ...)
    x$metrics
  }
  else cat("No coefficients\n")
  cat("\n")
  invisible(x)
}



#' @export
#' @rdname print.ConsRegArima
print.ConsRegArima <- function(x, ...)
{
  digits = 3
  cat("\nCall:\n", paste(deparse(x$call), sep = "\n",
                         collapse = "\n"), "\n\n", sep = "")
  if (length(stats::coef(x))) {
    cat("Coefficients:\n")
    print.default(format(stats::coef(x), digits = digits), print.gap = 2L,
                  quote = FALSE, ...)
    x$metrics
    cat(
      "\nsigma^2 estimated as ", format(x$sigma2, digits = digits),
      ":  AIC=", format(round(x$aic, 2L)), "\n", sep = ""
    )
  }
  else cat("No coefficients\n")
  cat("\n")
  invisible(x)
}