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

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

## -----------------------------------------------------------------------------
out <- scorepairci(x = c(1, 1, 7, 12), 
                   precis = 4)
out$estimates

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

## -----------------------------------------------------------------------------
out <- scorepairci(x = c(1, 1, 7, 12), 
                   contrast = "RR", 
                   precis = 4)
out$estimates
out$pval

## -----------------------------------------------------------------------------
moverpairci(x = c(1, 1, 7, 12), 
            contrast = "RD", 
            corc = TRUE, 
            precis = 4
            )$estimates

## -----------------------------------------------------------------------------
moverpairci(x = c(1, 1, 7, 12), 
            contrast = "RD", 
            corc = TRUE, 
            type = "wilson", 
            precis = 4
            )$estimates

## -----------------------------------------------------------------------------
out <- scorepairci(x = c(1, 1, 7, 12), 
                   contrast = "OR")
out$estimates
out$pval

## -----------------------------------------------------------------------------
orpairci(x = c(1, 1, 7, 12))$estimates

## -----------------------------------------------------------------------------
rdpairci(x = c(1, 1, 7, 12),
             precis = 4)$estimates

## -----------------------------------------------------------------------------
rdpairci(x = c(1, 1, 7, 12),
         cc = TRUE,
         precis = 4)$estimates