if (mlr3misc::require_namespaces(c("partykit", "ggparty"), quietly = TRUE)) {
# classification
task = tsk("iris")
learner = lrn("classif.rpart", keep_model = TRUE)
learner$train(task)
autoplot(learner, type = "ggparty")
# regression
task = tsk("mtcars")
learner = lrn("regr.rpart", keep_model = TRUE)
learner$train(task)
autoplot(learner, type = "ggparty")
}
Run the code above in your browser using DataLab