# NOT RUN {
x1 <- matrix(c(1,1),1,)
funBrownBs(x1)
res <- spot(,fun=funBrownBs,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