#'@title Plot one-way ANOVA
#'
#'
#'@description
#'\code{plot.oneway} plots a one-way anova
#'and inclues group level summary statistics
#'
#'@details
#'This function creates side by side box plots for each group
#'in the analysis.
#'
#'@param x an object of class \code{oneway}
#'@param col fill color for boxplots
#'@param ... additional arguments passed to the
#'\code{\link{boxplot}} function.
#'
#'@export
#'
#'@return NULL
#'\item{oneway}{a list with the lm results}
#'\item{summarystats}{a data frame with the summary statistics}
#'
#'@author Belén Rodríguez <brodriguez@@wesleyan.edu>
#'
#'@examples
#'mileage <- oneway(hwy ~ class, cars)
#'plot(mileage)
plot.oneway <- function(x, ...){
if(!inherits(x, "oneway")) stop("Must be class 'oneway'")
boxplot(x$anova$terms, x$anova$model, col="skyblue")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.