# NOT RUN {
## Most simple example: Kriging + LHS + predicted
## mean optimization (not expected improvement)
# }
# NOT RUN {
control <- list(funEvals=20)
res <- spot(,funSphere,c(-2,-3),c(1,2),control)
## now continue with larger budget.
## 5 additional runs will be performed.
control$funEvals <- 25
res2 <- spotLoop(res$x,res$y,funSphere,c(-2,-3),c(1,2),control)
res2$xbest
res2$ybest
# }
Run the code above in your browser using DataLab