tests/testthat/test_bootClassic.R

library(bbw)
context("Bootstrap function for means/proportions")

xMean <- bootClassic(x = indicatorsHH,
                     params = c("anc1", "anc2", "anc3", "anc4"))

test_that("xMean is a numeric vector", {
  expect_is(xMean, "numeric")
})

test_that("xMean length is length of params", {
  expect_equal(length(xMean), 4)
})

Try the bbw package in your browser

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

bbw documentation built on Jan. 20, 2018, 9:11 a.m.