Nothing
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")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.