R/optim__volcano.R

Defines functions volcano

volcano <- function(x) {
  rho <- sqrt(sum(x))
  f <- rho^2*exp(-rho)+.02*x[1]/(1+.001*x[1]^2)
  return(-f)
}
feng-li/flutils documentation built on Oct. 1, 2020, 9:09 p.m.