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