# 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 multiple-variable design.
thisfile <- knitr::current_input() revised_toc(thisfile, base_level = 3, toc_depth = 4)
Predictor1 <- c(0, 0, 3, 5) Predictor2 <- c(4, 7, 4, 9) Criterion <- c(9, 6, 4, 9) RegressionData <- data.frame(Predictor1, Predictor2, Criterion)
descMeans(RegressionData)
ciCoefficients(Criterion ~ Predictor1 + Predictor2) graphCoefficients(Criterion ~ Predictor1 + Predictor2)
ciCoefficients(Criterion ~ Predictor1 + Predictor2, conf.level = .99) graphCoefficients(Criterion ~ Predictor1 + Predictor2, conf.level = .99)
nhstCoefficients(Criterion ~ Predictor1 + Predictor2)
descModel(Criterion ~ Predictor1 + Predictor2)
nhstModel(Criterion ~ Predictor1 + Predictor2)
pvaModel(Criterion ~ Predictor1 + Predictor2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.