# NOT RUN {
x1 <- matrix(c(-1,1),1,)
funPowellBs(x1)
# Running SPOT with 20 function evaluations with default configurations
res <- spot(,fun=funPowellBs,c(-10,-10),c(10,10),control=list(funEvals=20))
plotModel(res$model, points = rbind(c(res$xbest[1], res$xbest[2]),c(1.098e-5,9.106)))
# }
Run the code above in your browser using DataLab