R/plotmyt.R

In ctstrick61/s3oopcs: Constructs an object for further processing

#' @title  Method for plotting class mytt
#'
#' @description Makes a boxplot using an object of class mytt
#'
#' @details The function \code{myttest()} produces a list of class mytt, which has three components. These are sourced from the object and used in \code{plot.mytt()}
#'
#' @param x object class mytt
#'
#'
#'
#' @return  A boxplot of the two samples using \code{ggplot()}
#'
#' @importFrom ggplot2 ggplot aes ggtitle geom_boxplot
#'
#' @importFrom graphics plot
#'
#' @importFrom magrittr `%>%`
#'
#' @importFrom stats var.test t.test
#'
#' @rdname plot.mytt
#'
#' @export
#'
#' @examples
#' l<-myttest(x=rnorm(30), y=rnorm(40,0.5));plot(l)
plot.mytt <- function(x, ...){
  df<-x$df %>%
    g <- df %>% ggplot(aes(x=v,y=data))
    g + geom_boxplot(aes(fill=v))
    #add options
    g<-g + ggtitle(paste(
      "P value =",
      round(x$ttest$p.value,4),
      "Paired = ",
      x$paired
    )
    )
    print(g)
}