# NOT RUN {
x1 <- matrix(c(1,1),1,)
funFreudRoth(x1)
# Running SPOT with 20 function evaluations with default configurations
res <- spot(,funFreudRoth,c(0,0),c(10,10),control=list(funEvals=20))
plotModel(res$model)
# }
Run the code above in your browser using DataLab