if (requireNamespace("mlr3tuning") && requireNamespace("patchwork")) {
library(mlr3tuning)
learner = lrn("classif.rpart")
learner$param_set$values$cp = to_tune(0.001, 0.1)
learner$param_set$values$minsplit = to_tune(1, 10)
instance = TuningInstanceSingleCrit$new(
task = tsk("iris"),
learner = learner,
resampling = rsmp("holdout"),
measure = msr("classif.ce"),
terminator = trm("evals", n_evals = 10))
tuner = tnr("random_search")
tuner$optimize(instance)
# plot performance versus batch number
autoplot(instance, type = "performance")
# plot cp values versus performance
autoplot(instance, type = "marginal", cols_x = "cp")
# plot transformed parameter values versus batch number
autoplot(instance, type = "parameter", trafo = TRUE)
# plot parallel coordinates plot
autoplot(instance, type = "parallel")
# plot pairs
autoplot(instance, type = "pairs")
}
Run the code above in your browser using DataLab