fix vignettes

jakob-r · jakob-r · commit 59dc0a6aa63e · 2018-03-21T15:52:56.000+01:00
diff --git a/vignettes/supplementary/machine_learning_with_mlrmbo.Rmd b/vignettes/supplementary/machine_learning_with_mlrmbo.Rmd
@@ -203,7 +203,7 @@ Afterwards, we can run `tuneParams()` and check the results.
 ```{r pipeline_tuning}
 ctrl = makeMBOControl()
 ctrl = setMBOControlTermination(ctrl, iters = iters)
-lrn = makeFilterWrapper(makeModelMultiplexer(list("classif.svm", "classif.naiveBayes")))
+lrn = makeFilterWrapper(makeModelMultiplexer(list("classif.svm", "classif.naiveBayes")), fw.method = "variance")
 tune.ctrl = makeTuneControlMBO(mbo.control = ctrl)
 
 res = tuneParams(lrn, iris.task, cv3, par.set = par.set, control = tune.ctrl, show.info = FALSE)
diff --git a/vignettes/supplementary/mixed_space_optimization.Rmd b/vignettes/supplementary/mixed_space_optimization.Rmd
@@ -159,7 +159,7 @@ This is done by introducing a new variable for each _method_.
 ```{r wrapper}
 wrap.fun = function(x) {
   x$j = if (x$method == "a") x$ja else x$jb
-  x = dropNamed(x, c("ja", "jb"))
+  x = x[setdiff(names(x), c("ja", "jb"))]
   fun(x)
 }
 ```

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ This is done by introducing a new variable for each _method_.`
`159`	`159`	```{r wrapper}
`160`	`160`	`wrap.fun = function(x) {`
`161`	`161`	`x$j = if (x$method == "a") x$ja else x$jb`
`162`		`- x = dropNamed(x, c("ja", "jb"))`
	`162`	`+ x = x[setdiff(names(x), c("ja", "jb"))]`
`163`	`163`	`fun(x)`
`164`	`164`	`}`
`165`	`165`	```