R/anova_utils.R

In statdivlab/rigr: Regression, Inference, and General Data Analysis Tools in R

# Print method for class "anova"
#' @noRd
#' @export
print.anova.uRegress <- function(x, ...) {
  
  cat("Analysis of Deviance Table \n")
  cat("Null model: ")
  print(x$object)
  cat("\n")
  cat("Full model: ")
  print(x$full_object)
  cat("\n")
  stats::printCoefmat(t(x$printMat[1,]), digits = 4, 
                      has.Pvalue = TRUE)
}