tests/testthat/test_bootProbit.R

library(bbw)
context("Bootstrap function for PROBIT")

xProbit <- bootPROBIT(x = indicatorsCH1,
                      params = "muac1",
                      threshold = 115)

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

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.