# \donttest{
if (requireNamespace("nloptr")) {
search_space = domain = ps(x = p_dbl(lower = -1, upper = 1))
codomain = ps(y = p_dbl(tags = "minimize"))
objective_function = function(xs) {
list(y = as.numeric(xs)^2)
}
objective = ObjectiveRFun$new(
fun = objective_function,
domain = domain,
codomain = codomain)
# We use the internal termination criterion xtol_rel
terminator = trm("none")
instance = OptimInstanceBatchSingleCrit$new(
objective = objective,
search_space = search_space,
terminator = terminator)
optimizer = opt("nloptr", algorithm = "NLOPT_LN_BOBYQA")
# Modifies the instance by reference
optimizer$optimize(instance)
# Returns best scoring evaluation
instance$result
# Allows access of data.table of full path of all evaluations
as.data.table(instance$archive)
}
# }
Run the code above in your browser using DataLab