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

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

## -----------------------------------------------------------------------------
dfba_beta_descriptive(a = 17, 
                      b = 3)

## ----fig.retina=12, fig.width = 7---------------------------------------------
plot(dfba_beta_descriptive(a = 17,
                           b = 3))

## -----------------------------------------------------------------------------
x<- dfba_beta_descriptive(a = 17,
                          b = 3)$outputdf

head(x)

## -----------------------------------------------------------------------------
x <- dfba_beta_descriptive(a = 31,
                           b = 20,
                           prob_interval = .90)
hdi <- c(x$hdi_lower,
         x$hdi_upper)

hdi