R/schwefel_12.R

In EEEA: Explicit Exploration Strategy for Evolutionary Algorithms

Defines functions schwefel_12

Documented in schwefel_12

schwefel_12 <- function(x) {
  return(sum(sapply(1:length(x), function(i) sum(x[1:i])^2)))
}

Try the EEEA package in your browser