# NOT RUN {
library(mlr3)
library(mlr3cluster)
library(mlr3viz)
task = mlr_tasks$get("usarrests")
# agnes clustering
learner = mlr_learners$get("clust.agnes")
learner$train(task)
autoplot(learner)
# diana clustering
learner = mlr_learners$get("clust.diana")
learner$train(task)
autoplot(learner,
k = learner$param_set$values$k, rect_fill = TRUE,
rect = TRUE, rect_border = "red")
# hclust clustering
learner = mlr_learners$get("clust.hclust")
learner$train(task)
autoplot(learner, type = "scree")
# }
Run the code above in your browser using DataLab