Nothing
context("raceconfs")
withr::with_output_sink("test-raceconfs.Rout", {
parameters.txt <- '
launch_method "--launch_method=" c (L-BFGS-B,SLSQP)
visit_method "--visit_method=" c (DA, DE)
global_method "--global_method=" c (CMAES,DE)
'
confs.txt <- '
launch_method visit_method global_method
L-BFGS-B DA CMAES
SLSQP DA CMAES
L-BFGS-B DE CMAES
SLSQP DE CMAES
L-BFGS-B DA DE
SLSQP DA DE
L-BFGS-B DE DE
SLSQP DE DE
'
target.runner <- function(experiment, scenario)
return(list(cost = 100, call = toString(experiment)))
withr::with_options(list(warning=2), {
parameters <- irace:::readParameters(text=parameters.txt)
initconfs <- irace:::readConfigurationsFile(text=confs.txt, parameters=parameters)
scenario <- list(targetRunner = target.runner,
instances=1:10,
nbConfigurations=8,
maxExperiments = 96, logFile = "",
initConfigurations=initconfs)
scenario <- checkScenario (scenario)
confs <- irace(scenario = scenario, parameters = parameters)
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.