inst/tinytest/test_recombinator_sbx.R

In miesmuschel: Mixed Integer Evolution Strategies

source("setup.R", local = TRUE)

rsbx = RecombinatorSimulatedBinaryCrossover$new()
expect_recombinator(rsbx, "RecombinatorSimulatedBinaryCrossover")

set.seed(1)

p = ps(x = p_dbl(-10, 10), y = p_dbl(-10, 10), z = p_dbl(-10, 10))
rsbx$prime(p)
vals = generate_design_random(p, 10)$data

rsbx$param_set$values$n = c(0.1, 1, 10)

data = data.table(x = rep(c(-10, 10), 5), y = rep(c(-10, 10), 5), z = rep(c(-10, 10), 5))
recombined = rsbx$operate(data)
expect_identical(names(sort(apply(abs(data), MARGIN = 2L, FUN = sd))),
  c("x", "y", "z"))