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

## ----setup--------------------------------------------------------------------
library(whSample)

## ----eval=FALSE---------------------------------------------------------------
#  ssize(N, ci=0.95, me=0.07, p=0.5)

## -----------------------------------------------------------------------------
ssize(10000)

## -----------------------------------------------------------------------------
ssize(10000, p=0.6)