examples/vectorized.R

In olafmersmann/mco: Multiple Criteria Optimization Algorithms and Related Functions

library("mco")

## Binh 1 problem:
binh1 <- function(x) {
  y <- numeric(2)
  y[1] <- crossprod(x, x)
  y[2] <- crossprod(x - 5, x - 5)
  return (y)
}

vectorized_binh1 <- function(X) {
  apply(X, 1, binh1)
}

r1 <- nsga2(binh1, 2, 2,
            generations=150, popsize=100,
            cprob=0.7, cdist=20,
            mprob=0.2, mdist=20,
            lower.bounds=rep(-5, 2),
            upper.bounds=rep(10, 2))

r1v <- nsga2(vectorized_binh1, 2, 2,
             generations=150, popsize=100,
             cprob=0.7, cdist=20,
             mprob=0.2, mdist=20,
             lower.bounds=rep(-5, 2),
             upper.bounds=rep(10, 2),
             vectorized=TRUE)