# suppress the warnings and other messages from showing in the knitted file. knitr::opts_chunk$set(fig.width = 7, fig.height = 5, fig.path = "figures/", echo = TRUE, warning = FALSE, message = FALSE) devtools::source_gist("8e6e5dc401e3fc1042ef7a030f9d19c7", filename = "revised_toc.R")
if (!require(easiOrigin)) { if (!require(remotes)) install.packages("remotes") remotes::install_github("cwendorf/easiOrigin") } library(easiOrigin)
This vignette analyzes data from a single-factor within-subjects design.
thisfile <- knitr::current_input() revised_toc(thisfile, base_level = 3, toc_depth = 4)
Outcome1 <- c(0, 0, 3, 5) Outcome2 <- c(4, 7, 4, 9) Outcome3 <- c(9, 6, 4, 9) RepeatedData <- data.frame(Outcome1, Outcome2, Outcome3)
descMeans(RepeatedData)
ciMeans(RepeatedData) graphMeans(RepeatedData)
ciMeans(RepeatedData, conf.level = .99) graphMeans(RepeatedData, conf.level = .99, mu = 5)
nhstMeans(RepeatedData) nhstMeans(RepeatedData, mu = 5)
ComparisonData <- data.frame(Outcome1, Outcome2)
ciDifference(ComparisonData) graphDifference(ComparisonData)
ciDifference(ComparisonData, conf.level = .99) graphDifference(ComparisonData, conf.level = .99)
nhstDifference(ComparisonData) nhstDifference(ComparisonData, mu = -2)
ciPairwise(RepeatedData) graphPairwise(RepeatedData)
ciPairwise(RepeatedData, conf.level = .99) graphPairwise(RepeatedData, mu = -2, conf.level = .99)
nhstPairwise(RepeatedData) nhstPairwise(RepeatedData, mu = -2)
ciContrasts(RepeatedData, contrasts = contr.sum) graphContrasts(RepeatedData, contrasts = contr.sum)
ciContrasts(RepeatedData, contrasts = contr.sum, conf.level = .99) graphContrasts(RepeatedData, contrasts = contr.sum, conf.level = .99)
nhstContrasts(RepeatedData, contrasts = contr.sum)
descEffect(RepeatedData)
nhstEffect(RepeatedData)
pvaEffect(RepeatedData)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.