R/print.R

In etuhabonye/oneway: One-Way Analysis of Variance

#' Print one-way ANOVA results
#'
#' print.one-ways prints one way anova results
#'
#' @param x an object of class oneway.
#' @param ... additional arguments passed to the function.
#'
#' @return the input object is returned silently
#' @export
#' @examples
#' mileage <- oneway(mpg ~ cyl, mtcars)
#' print(mileage)
print.oneway<- function(x,...){

  if(!inherits(x, "oneway"))
    stop("Must be class oneway")

  cat("\n Summary Statistics\n",
      "===========================\n")
  print(x$summarystats,...)
  cat("\n Anova\n",
      "===========================\n")
  print(summary.lm(x$anova))
}