if (requireNamespace("mlr3")) {
library(mlr3)
library(mlr3cluster)
library(mlr3viz)
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