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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.