#'@title Print one-way ANOVA results
#'
#'@description
#'\code{print.oneway} print one-way anova results
#'
#'@details
#'This function prints one-way ANOVA results created by the
#'\code{\link{oneway}} function.
#'
#'@param x an object of class \code{oneway}
#'@param ... additional arguments passed to the print function
#'
#'@export
#'
#'@return the input object is returned silently
#'
#'@author Kelly Jamrog <kjamrog@@wesleyan.edu>
#'
#'@examples
#'mileage <- oneway(hwy~class, cars)
#'print(mileage)
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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.