# Computation of the AC indices of a hierarchical clustering algorithm
M <- generate.sample0(n=10, m=2, sigma=2, dim=800)
d <- dist (t(M));
tree <- hclust(d, method = "average");
plot(tree, main="");
cl.orig <- rect.hclust(tree, k = 3);
l.norm <- Multiple.Random.hclustering (M, dim=100, pmethod="Norm",
c=3, hmethod="average", n=20)
Sim <- Do.similarity.matrix.partition(l.norm);
ac <- AC.index(cl.orig, c=3, Sim)
Run the code above in your browser using DataLab