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

## ----setup--------------------------------------------------------------------
library(cochranSize)

## -----------------------------------------------------------------------------
cochran_sample_size(e = 0.05, conf.level = 0.95)

## -----------------------------------------------------------------------------
cochran_sample_size(N = 2000, e = 0.05, conf.level = 0.95)

## -----------------------------------------------------------------------------
cochran_sample_size(N = 500, p = 0.3, e = 0.03, conf.level = 0.99)

## -----------------------------------------------------------------------------
n0 <- cochran_n(p = 0.5, e = 0.05, conf.level = 0.95)
n0
cochran_n_adj(n0, N = 1000)

## -----------------------------------------------------------------------------
settings <- expand.grid(
  conf.level = c(0.90, 0.95, 0.99),
  e = c(0.05, 0.03, 0.01)
)
settings$n0 <- mapply(cochran_n, e = settings$e, conf.level = settings$conf.level)
settings$n0 <- ceiling(settings$n0)
settings[order(settings$conf.level, -settings$e), ]