knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(jmv)
library(jmv2rmd)
res <- ToothGrowth %>% jmv::ANOVA(dep=len, factors = c("supp", "dose"),
                           effectSize = "eta", homo = T, 
                  norm = T, qq = T, postHoc = ~ supp + dose,
                  emMeans = Sepal.Length ~ supp + dose, 
                  emmPlotData = T, emmTables = T)




p <- jmv2rmd::anova_emm_plot(res, 2)

p + ggplot2::labs(title = "Successfully extracted")


statisticsforsocialscience/jmv2rmd documentation built on Dec. 16, 2019, 12:48 a.m.