R/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)
}
thiyangt/fformpp documentation built on Jan. 5, 2024, 5:44 a.m.