if (mlr3misc::require_namespaces("mlr3cluster", quietly = TRUE)) {
library(mlr3cluster)
task = tsk("usarrests")
# agnes clustering
learner = lrn("clust.agnes")
learner$train(task)
autoplot(learner)
# diana clustering
learner = lrn("clust.diana")
learner$train(task)
autoplot(learner)
# hclust clustering
learner = lrn("clust.hclust")
learner$train(task)
autoplot(learner, type = "scree")
}
Run the code above in your browser using DataLab