examples/fixed_budget.R

In olafmersmann/soobench: Single Objective Optimization Benchmark Functions

library("soobench")

fn <- generate_rosenbrock_function(2)
fn <- with_fixed_budget(fn, 110)
#FIXME: record_target_values_function undefined
fn <- record_target_values_function(fn)

par <- random_parameter(fn)
r <- tryCatch(optim(par, fn), method="BFGS",
              ## Ignore 'evaluation_limit_error's
              evaluation_limit_error=function(cond) NULL,
              error=function(cond) cond)
fht <- first_hitting_times(fn, 10^(5:(-8)))
print(fht)