# NOT RUN {
x1 <- matrix(c(1,1,1),1,)
funMeyer(x1)
set.seed(13)
resMeyer <- spot(matrix(c(0.02,4000,250),1,3),
funMeyer,c(0,1000,200),c(3,8000,500),
control= list(funEvals=15))
resMeyer$xbest
resMeyer$ybest
print("Model with parameters")
plotModel(resMeyer$model)
plotModel(resMeyer$model,which=2:3)
# }
Run the code above in your browser using DataLab