Nonlinear Optimization in R using nlopt