## Not run:
#
# set.seed(23235)
# ss <- sample(1:150, 4 )
# hc1 <- hclust(dist(iris[ss,-5]), "com")
# hc2 <- hclust(dist(iris[ss,-5]), "single")
# # dend1 <- as.dendrogram(hc1)
# # dend2 <- as.dendrogram(hc2)
# # cutree(dend1)
#
# A1_clusters <- cutree(hc1, k=3)
# A2_clusters <- sample(cutree(hc1, k=3))
#
# sort_2_clusters_vectors(A1_clusters, A2_clusters, assume_sorted_vectors =TRUE) # no sorting
# sort_2_clusters_vectors(A1_clusters, A2_clusters, assume_sorted_vectors =FALSE) # Sorted
#
#
# ## End(Not run)
Run the code above in your browser using DataLab