# NOT RUN {
library(CrossClustering)
clusters <- iris[-5] %>%
dist %>%
hclust(method = 'ward.D') %>%
cutree(k = 3)
ground_truth <- iris[[5]] %>% as.numeric()
CrossClustering:::cc_test_ari(ground_truth, clusters)
# }
Run the code above in your browser using DataLab