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

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

## -----------------------------------------------------------------------------
out <- pairbinci(x = c(1, 1, 7, 12))
out$estimates

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

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

## -----------------------------------------------------------------------------
pairbinci(x = c(1, 1, 7, 12), contrast = "RD", method = "MOVER_newc")$estimates

## -----------------------------------------------------------------------------
pairbinci(x = c(1, 1, 7, 12), contrast = "RD", method = "MOVER_newc", moverbase = "wilson")$estimates

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

## -----------------------------------------------------------------------------
pairbinci(x = c(1, 1, 7, 12), contrast = "OR", method = "midp")$estimates