# NOT RUN {
library(paradox)
library(data.table)
domain = ParamSet$new(list(ParamDbl$new("x", lower = -1, upper = 1)))
search_space = ParamSet$new(list(ParamDbl$new("x", lower = -1, upper = 1)))
codomain = ParamSet$new(list(ParamDbl$new("y", tags = "minimize")))
objective_function = function(xs) {
list(y = as.numeric(xs)^2)
}
objective = ObjectiveRFun$new(fun = objective_function,
domain = domain,
codomain = codomain)
terminator = trm("evals", n_evals = 10)
instance = OptimInstanceSingleCrit$new(
objective = objective,
search_space = search_space,
terminator = terminator)
design = data.table(x = c(0, 1))
optimizer = opt("design_points", design = design)
# 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