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


## ----setup--------------------------------------------------------------------
library(ratesci)

## -----------------------------------------------------------------------------
out <- scoreci(x1 = 5, n1 = 56, x2 = 0, n = 29)
out$estimates

## -----------------------------------------------------------------------------
scoreci(x1 = 5, n1 = 56, x2 = 0, n = 29, skew = FALSE)$estimates
scoreci(x1 = 5, n1 = 56, x2 = 0, n = 29, skew = FALSE, bcf = FALSE)$estimates

## -----------------------------------------------------------------------------
out$pval

## -----------------------------------------------------------------------------
scasci(x1 = 5, n1 = 56, x2 = 0, n = 29)$estimates

## -----------------------------------------------------------------------------
scasci(x1 = 5, n1 = 56, x2 = 0, n = 29, contrast = "RR")$estimates

## -----------------------------------------------------------------------------
scasci(x1 = 5, n1 = 56, x2 = 0, n = 29, contrast = "OR")$estimates

## -----------------------------------------------------------------------------
scasci(x1 = 5, n1 = 56, x2 = 0, n = 29, contrast = "RR", distrib = "poi")$estimates

## -----------------------------------------------------------------------------
moverci(x1 = 5, n1 = 56, x2 = 0, n = 29)

## -----------------------------------------------------------------------------
moverci(x1 = 5, n1 = 56, x2 = 0, n = 29, type = "wilson")

## -----------------------------------------------------------------------------
moverbci(x1 = 5, n1 = 56, x2 = 0, n = 29, a1 = 1.5, b1 = 9.5, a2 = 0.5, b2 = 10.5)