train_sme: Trainer for a surmodel object based on the SME algorithm
In coldfir3/suropt: Surrogate-Based Optimization

Trainer for a surmodel object based on the SME algorithm

1	train_sme(model, niter, optimizer = "nsga2")

`model`	surmodel object to be trained
`niter`	integer indicating number of iterations
`optimizer`	character, only working for nsga2 by now

fn <- shaffer2
model <- build_surmodel(fn, 10, 1) %>% train_sme(5)

fn <- binh
model <- build_surmodel(fn, 10, 2) %>% train_sme(5)
plot(model)
suropt:::plot_predict(model)

data <- data.frame(X.1 = runif(5), X.2 = runif(5), Y.1 = runif(5), G.1 = rnorm(5))
x_star <- build_surmodel(data) %>% train_sme(-1)