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


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

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

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

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

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

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

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

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

## -----------------------------------------------------------------------------
moverci(x1 = 5, 
        n1 = 56, 
        x2 = 0, 
        n2 = 29
        )$estimates

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

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

## -----------------------------------------------------------------------------
orci(x1 = 5, 
     n1 = 56, 
     x2 = 1, 
     n2 = 29
     )$estimates

## -----------------------------------------------------------------------------
1 / orci(x1 = 51, 
         n1 = 56, 
         x2 = 28, 
         n2 = 29
         )$estimates

## -----------------------------------------------------------------------------
rdci(x1 = 5, 
     n1 = 56, 
     x2 = 0, 
     n2 = 29, 
     precis = 4
     )$estimates

## -----------------------------------------------------------------------------
rdci(x1 = 5, 
     n1 = 56, 
     x2 = 0, 
     n2 = 29, 
     precis = 4,
     cc = TRUE
     )$estimates

## -----------------------------------------------------------------------------
rdci(x1 = 5, 
     n1 = 56, 
     x2 = 0, 
     n2 = 29, 
     precis = 4,
     cc = 0.25
     )$estimates