View source: R/generateProblemList.R
generateProblemList | R Documentation |
This functions enables users to create an instance list with different problems, which are used for EBO::optimizertuneRace().
generateProblemList(...)
... |
[ |
List of instances with different problems / tasks.
## Not run: set.seed(1) library(mlrMBO) library(ParamHelpers) library(mlr) set.seed(1) # define problem 1 data1 <- data.frame(a = runif(50,10,5555), b = runif(50,-30000,-500), c = runif(50,0,1000)) data1$ratio <- rowSums(data1[,1:3]^2) data1$ratio <- data1$ratio/max(data1$ratio) colnames(data1) <- c("power", "time", "pressure","ratio") psOpt = makeParamSet( makeIntegerParam("power", lower = 10, upper = 5555), makeIntegerParam("time", lower = -30000, upper = -500), makeIntegerParam("pressure", lower = 0, upper = 1000) ) task1 = task( simulation = "regr.randomForest", data = data1, target = "ratio", psOpt = psOpt, minimize = FALSE ) # define problem 2 data2 <- data.frame(a = runif(80,0,0.25), b = runif(80, 0,0.1), c = runif(80,0,1), d = runif(80,0,1)) data2$interface <- rowSums((data2[,1:4]*8)^2) data2$interface <- data2$interface/max(data2$interface) colnames(data2) <- c("f", "k", "du","dv") psOpt = ParamHelpers::makeParamSet( ParamHelpers::makeNumericParam("f", lower = 0, upper = 0.25), ParamHelpers::makeNumericParam("k", lower = 0, upper = 0.1), ParamHelpers::makeNumericParam("du", lower = 0, upper = 1), ParamHelpers::makeNumericParam("dv", lower = 0, upper = 1) ) task2 = task( simulation = "regr.randomForest", data = data2, target = "interface", psOpt = psOpt, minimize = FALSE ) ################## Define problemList ############# problemList = generateProblemList(task1, task2) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.