R/print.oneway.R

In annasophiepeters/onewayAnova: Performs a One Way ANOVA

#' @title Print a oneway object
#' @description prints the results of a oneway ANOVA
#' @param x an object of class \code{oneway}
#' @param ... parameters passed to print function
#' @return NULL
#' @examples
#' mileage <- oneway(hwy ~ class, cars)
#' print(mileage)
#' @rdname print.oneway
#' @export

print.oneway <- function(x, ...){
  if(!inherits(x, "oneway")) stop("Must be class 'oneway'")
  cat("\nSummary Statistics\n",
      "====================================================\n", sep="")
  print(x$summarystats, ...)
  cat("\nAnova\n",
      "====================================================\n", sep="")
  print(summary.lm(x$anova))
}