updating mlrMO settings

Author: pbalapra

workflows/nt3_mlrMBO/R/mlrMBO3.R

@@ -57,12 +57,15 @@ simple.obj.fun = function(x){}
 
 main_function <- function(max.budget = 110, max.iterations = 10, design.size=10, propose.points=10){
 
+
   surr.rf = makeLearner("regr.randomForest", predict.type = "se")
-  ctrl = makeMBOControl(n.objectives = 1, propose.points = propose.points, 
-       	 		impute.y.fun = function(x, y, opt.path, ...) .Machine$integer.max * 0.1 )
+  ctrl = makeMBOControl(n.objectives = 1, propose.points = 20, 
+       	  			       impute.y.fun = function(x, y, opt.path, ...) .Machine$integer.max * 0.1 )
+  ctrl = setMBOControlInfill(ctrl, crit=makeMBOInfillCritCB(), interleave.random.points=propose.points-20)
+  ctrl = setMBOControlMultiPoint(ctrl, method = "cb")
   ctrl = setMBOControlTermination(ctrl, max.evals = max.budget)
   ctrl = setMBOControlTermination(ctrl, iters = max.iterations)
-  # ctrl = setMBOControlInfill(ctrl, crit =makeMBOInfillCritCB(), opt.focussearch.points = 500)
+
   design = generateDesign(n = design.size, par.set = getParamSet(obj.fun))
   print(design)
   configureMlr(show.info = FALSE, show.learner.output = FALSE, on.learner.warning = "quiet")