so = scl("one")
p = ps(x = p_dbl(-5, 5))
# dummy data; note that ScalorOne does not depend on data content
data = data.frame(x = rep(0, 5))
fitnesses = matrix(c(1, 5, 2, 3, 0, 3, 1, 0, 10, 8), ncol = 2)
so$prime(p)
so$operate(data, fitnesses)
so$param_set$values$objective = 2
so$operate(data, fitnesses)
Run the code above in your browser using DataLab