# NOT RUN {
if (requireNamespace("MASS", quietly = TRUE)) {
# Retrieve group classification from hierarchical cluster analysis
clustering <- cluster_analysis(iris[, 1:4], n = 3)
# Goodness of group classification
cluster_discrimination(clustering)
}
# }
Run the code above in your browser using DataLab