tests/testthat.R

library(testthat)
library(whSample)

test_that(
  "Checking ssize",
  {
    expect_equal(ssize(10000), 193)
    expect_equal(ssize(10000, ci=0.8), 84)
    expect_equal(ssize(10000, me=0.06), 260)
    expect_equal(ssize(10000, p=0.60), 185)

  }
)

Try the whSample package in your browser

Any scripts or data that you put into this service are public.

whSample documentation built on May 13, 2021, 5:06 p.m.