powered by
model <- gpOptimise(model, display, iters)
gpCreate, gpGradient, gpObjective
## missing
Run the code above in your browser using DataLab