In cwendorf/EASIalt: easiOrigin

# 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)

Mixed Vignette

This vignette analyzes data from a two-factor mixed design.

thisfile <- knitr::current_input()
revised_toc(thisfile, base_level = 3, toc_depth = 4)

---

Data Management

Data Entry

Factor <- c(1, 1, 1, 1, 2, 2, 2, 2)
Outcome1 <- c(0, 0, 3, 5, 1, 3, 6, 6)
Outcome2 <- c(4, 7, 4, 9, 3, 1, 6, 6)
Outcome3 <- c(4, 9, 6, 9, 3, 3, 6, 8)
Factor <- factor(Factor, levels = c(1, 2), labels = c("Level1", "Level2"))
MixedData <- data.frame(Factor, Outcome1, Outcome2, Outcome3)
MixedData

Descriptive Statistics

descMeansBy(cbind(Outcome1, Outcome2, Outcome3), by = Factor)

Analyses of the Means

Confidence Intervals

ciMeansBy(cbind(Outcome1, Outcome2, Outcome3), by = Factor)
ciMeansBy(cbind(Outcome1, Outcome2, Outcome3), by = Factor, conf.level = .99)

Significance Tests

nhstMeansBy(cbind(Outcome1, Outcome2, Outcome3), by = Factor)
nhstMeansBy(cbind(Outcome1, Outcome2, Outcome3), by = Factor, mu = 5)

Analyses of the Effects

Source Table

descMultifactor(cbind(Outcome1, Outcome2, Outcome3), by = Factor)

Significance Test

nhstMultifactor(cbind(Outcome1, Outcome2, Outcome3), by = Factor)

Effect Size

pvaMultifactor(cbind(Outcome1, Outcome2, Outcome3), by = Factor)

cwendorf/EASIalt documentation built on Oct. 31, 2023, 1:20 a.m.