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