Nonlinear Optimization In R Example