Nothing
context("getParamNr")
test_that("getParamNr", {
ps = makeParamSet()
expect_equal(getParamNr(ps), 0L)
expect_equal(getParamNr(ps, devectorize = TRUE), 0L)
ps = makeParamSet(
makeNumericParam("u", lower = 1),
makeIntegerParam("v", lower = 1, upper = 2),
makeDiscreteParam("w", values = 1:2),
makeLogicalParam("x"),
makeDiscreteVectorParam("y", len = 2, values = c("a", "b"))
)
expect_equal(getParamNr(ps), 5L)
expect_equal(getParamNr(ps, devectorize = TRUE), 6L)
})
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.