# NOT RUN {
library(paradox)
# Define objective function
fun = function(xs) {
- (xs[[1]] - 2)^2 - (xs[[2]] + 3)^2 + 10
}
# Set domain
domain = ParamSet$new(list(
ParamDbl$new("x1", -10, 10),
ParamDbl$new("x2", -5, 5)
))
# Set codomain
codomain = ParamSet$new(list(
ParamDbl$new("y", tags = "maximize")
))
# Create Objective object
obfun = ObjectiveRFun$new(
fun = fun,
domain = domain,
codomain = codomain,
properties = "deterministic"
)
# }
Run the code above in your browser using DataCamp Workspace