# NOT RUN {
library('nloptr')
nloptr.print.options()
nloptr.print.options( opts.show = c("algorithm", "check_derivatives") )
opts <- list("algorithm"="NLOPT_LD_LBFGS",
"xtol_rel"=1.0e-8)
nloptr.print.options( opts.user = opts )
# }
Run the code above in your browser using DataLab