Nothing
context("convertDiscrete")
test_that("discrete param NameToValue", {
f = function(x) 2 * x
p = makeDiscreteParam(id = "x", values = list(a = "char", b = 2L, c = 2.2, d = f, "e"))
expect_equal(discreteNameToValue(p, "b"), 2L)
expect_equal(discreteNameToValue(p, "c"), 2.2)
expect_equal(discreteNameToValue(p, "e"), "e")
expect_error(discreteNameToValue(p, ""), "Names not used")
p = makeIntegerParam(id = "y")
expect_error(discreteNameToValue(p, "a"))
# check that the operation works with very small values, we had a bug here in mlr#1115
p = makeDiscreteParam("x", values = c(a = 1e-8, b = 1e-9))
expect_equal(discreteNameToValue(p, "a"), 1e-8)
expect_equal(discreteNameToValue(p, "b"), 1e-9)
})
test_that("discrete param ValueToName", {
f = function(x) 2 * x
p = makeDiscreteParam(id = "x", values = list(a = "char", b = 2L, c = 2.2, d = f, "e"))
expect_equal(discreteValueToName(p, 2L), "b")
expect_equal(discreteValueToName(p, 2.2), "c")
expect_equal(discreteValueToName(p, "e"), "e")
expect_equal(discreteValueToName(p, f), "d")
expect_error(discreteValueToName(p, 3), "Value not found")
expect_error(discreteNameToValue(p, 2))
p = makeIntegerParam(id = "y")
expect_error(discreteNameToValue(p, "a"))
# check that the operation works with very small values, we had a bug here in mlr#1115
p = makeDiscreteParam("x", values = c(a = 1e-8, b = 1e-9))
expect_equal(discreteValueToName(p, 1e-8), "a")
expect_equal(discreteValueToName(p, 1e-9), "b")
})
test_that("discrete vec param NameToValue", {
f = function(x) 2 * x
p = makeDiscreteVectorParam(id = "x", len = 2, values = list(a = "char", b = 2L, c = c(2.2, 3.3), d = f, "e"))
expect_equal(discreteNameToValue(p, c("a", "b")), list(a = "char", b = 2L))
expect_equal(discreteNameToValue(p, c("e", "b")), list(e = "e", b = 2L))
expect_equal(discreteNameToValue(p, c("c", "d")), list(c = c(2.2, 3.3), d = f))
})
test_that("discrete vec param ValueToName", {
f = function(x) 2 * x
p = makeDiscreteVectorParam(id = "x", len = 2, values = list(a = "char", b = 2L, c = 2.2, d = f, "e"))
expect_equal(discreteValueToName(p, list(2L, "char")), c("b", "a"))
expect_equal(discreteValueToName(p, list(2.2, f)), c("c", "d"))
})
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.