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