## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(DFBA)

## -----------------------------------------------------------------------------
dfba_binomial(n1 = 25,
              n2 = 8)

## ----fig.width = 7------------------------------------------------------------
plot(dfba_binomial(n1 = 25,
                   n2 = 8
                   ))

## ----fig.width = 7------------------------------------------------------------
plot(dfba_binomial(n1 = 25,
                   n2 = 8,
                   a0 = .5,
                   b0 = .5))

## -----------------------------------------------------------------------------
dfba_binomial(n1 = 41,
              n2 = 32,
              a0 = 26,
              b0 = 9)