Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Sample Nelder and Mead 1965 1 for R
# objective function
obj_func <- function(x){ 100*(x[2]-x[1]^2)^2 + (1 - x[1])^2 }
# initial value
x1 <- c(-1.2, 1)
# nelder and mead method
Nelder_mead(x1, obj_func=obj_func)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment