EASIalt: easiOrigin

# easiOrigin
## Mixed Vignette

source("http://raw.githubusercontent.com/cwendorf/easiOrigin/main/source-easiOrigin.R")

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