R/print.tsglm.R

In tscount: Analysis of Count Time Series

print.tsglm <- function(x, digits=max(3, getOption("digits") - 3), ...){
  cat("\nCall:\n", paste(deparse(x$call), sep="\n", collapse="\n"), 
      "\n\n", sep="")
  if(length(coef(x))>0){
    cat("Coefficients:\n")
    print.default(format(coef(x), digits=4), print.gap=2, quote=FALSE)
  }else{ 
    if(length(x$init)>0){
      cat("Initial Coefficients:\n")
      print.default(format(x$init, digits=4), print.gap=2, quote=FALSE)
      warning("Only initial estimation was made")
    }else{
      cat("No coefficients\n")
    }
  }
  cat("\n")
  if(x$distr=="nbinom"){
    cat("Overdispersion coefficient 'sigmasq' was estimated to be ", x$sigmasq, ".\n\n", sep="")
  }
  invisible(x)
}