## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(DFBA)
## -----------------------------------------------------------------------------
n1_responses <- c(22, 15, 13, 21)
n2_responses <- c(18, 25, 27, 19)
## -----------------------------------------------------------------------------
G13_vs_G24 <- c(.5, -.5, .5, -.5)
## -----------------------------------------------------------------------------
contrast_example <- dfba_beta_contrast(n1_vec = n1_responses,
n2_vec = n2_responses,
contrast_vec = G13_vs_G24)
contrast_example
## ----fig.width = 7------------------------------------------------------------
plot(contrast_example)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.