context("permutation generator")
test_that("permutation generator works properly", {
permGen = ecr:::setupPermutationGenerator()
par.set = makeNumericParamSet(len = 10L, id = "x", lower = 1, upper = 10L)
task = list(par.set = par.set)
set.seed(5678)
# test that generated population is of proper length and each individual is
# a permutation of 1, ..., 10
size = 3L
population = permGen(size, task, control = NULL)
expect_is(population, "ecr_population")
population = population$individuals
expect_is(population, "list")
expect_equal(length(population), size)
for (i in seq(size)) {
expect_true(all.equal(sort(population[[i]]), 1:10L), info = "infdividual %i is
no permutation", i)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.