update to handle small runs

Author: pbalapra

workflows/nt3_mlrMBO/R/mlrMBO3.R

@@ -59,9 +59,9 @@ main_function <- function(max.budget = 110, max.iterations = 10, design.size=10,
 
 
   surr.rf = makeLearner("regr.randomForest", predict.type = "se")
-  ctrl = makeMBOControl(n.objectives = 1, propose.points = 20, 
+  ctrl = makeMBOControl(n.objectives = 1, propose.points = min(20, propose.points), 
        	  			       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 = setMBOControlInfill(ctrl, crit=makeMBOInfillCritCB(), interleave.random.points=min(0,propose.points-20))
   ctrl = setMBOControlMultiPoint(ctrl, method = "cb")
   ctrl = setMBOControlTermination(ctrl, max.evals = max.budget)
   ctrl = setMBOControlTermination(ctrl, iters = max.iterations)