R/rosenbrock.R

In EEEA: Explicit Exploration Strategy for Evolutionary Algorithms

Defines functions rosenbrock

Documented in rosenbrock

rosenbrock <- function(x) {
  D <- length(x)
  sum_terms <- 0
  for (i in 1:(D - 1)) {
    sum_terms <- sum_terms + (100 * (x[i+1] - x[i]^2)^2 + (1 - x[i])^2)
  }
  return(sum_terms)
}

Try the EEEA package in your browser