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

## ----eval=FALSE---------------------------------------------------------------
#  library(whSample)

## ----eval=FALSE---------------------------------------------------------------
#  sampler <- function(backups=5, irisData=F, ci=0.95, me=0.07, p=0.50, seed=NULL, keepOrg=F)

## ----eval=F-------------------------------------------------------------------
#  sampler(p=0.06)

## ----eval=FALSE---------------------------------------------------------------
#  sampler()

## ----eval=FALSE---------------------------------------------------------------
#  sampler(backups=25)

## ----eval=FALSE---------------------------------------------------------------
#  install.packages("whSample")

## ----eval=FALSE---------------------------------------------------------------
#  devtools::install_github("km4ivi/whSample")

## ----eval=FALSE---------------------------------------------------------------
#  system.file("extdata", package="whSample")