fr <- function(x) { ## Rosenbrock Banana function
x1 <- x[1]
x2 <- x[2]
100 * (x2 - x1 * x1)^2 + (1 - x1)^2
}
optim(c(-1.2,1), fr, NULL, method = "BFGS")
## corresponding C++ implementation:
example1_rosen_nograd_bfgs()
Run the code above in your browser using DataLab