use BFGS in testoptim2.R