Nothing
context("makeMultiObjectiveFunction")
test_that("guessing n.objectives works", {
# create function without passing n.objectives argument
fn = makeMultiObjectiveFunction(
name = "testfun",
fn = function(x) c(sum(x^2), sum(x^2), sum(x^2)),
par.set = makeNumericParamSet(len = 3L, lower = -5, upper = 5)
)
expectIsSmoofFunction(fn, getID(fn))
expect_equal(getNumberOfObjectives(fn), 3L)
})
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.