R/print.oneway.R

In fredcorpuz06/onewayAnova: Performs a One Way ANOVA

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param x PARAM_DESCRIPTION
#' @param ... PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @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))
}