# NOT RUN {
# Generate function list.
# Here we use the default setting \code{vector2Matrix = TRUE},
# so the function list can be passed to \code{\link[stats]{optim}}.
fl <- makeMoreFunList()
optim(par=c(-1.2,1), fn=fl$funList[[1]])
optim(par=fl$startPointList[[1]], fn=fl$funList[[1]])$value
optim(par=fl$startPointList[[1]], fn=fl$funList[[1]],NULL, method = "CG", hessian = FALSE)$value
optim(fl$startPointList[[1]], fl$funList[[1]],NULL, method = "BFGS", hessian = FALSE)$value
optim(fl$startPointList[[1]], fl$funList[[1]],NULL, method = "L-BFGS-B", hessian = FALSE)$value
# }
Run the code above in your browser using DataLab