# Assessment of the reliability of clusters discovered
# by hierarchical clustering using RS projections.
M <- generate.sample0(n=10, m=2, sigma=2, dim=800)
l<-Random.hclustering.validity(M, dim=30, pmethod = "RS", c = 3,
hmethod = "average", n = 20)
# The same as above, but using PMO projections.
l<-Random.hclustering.validity(M, dim=30, pmethod = "PMO", c = 3,
hmethod = "average", n = 20)
# The same as above, but evaluating clusterings with 5 clusters
l<-Random.hclustering.validity(M, dim=30, pmethod = "PMO", c = 5,
hmethod = "average", n = 20)
# The same as above, but evaluating clusterings with 10 clusters
l<-Random.hclustering.validity(M, dim=30, pmethod = "PMO", c = 10,
hmethod = "average", n = 20)
# Assessment of the reliability of the clusters using projections
# with limited distortion (max.
# expansion lower than 1.3 according to the Johnson Lindenstrauss lemma)
d <- JL.predict.dim(n=30, epsilon=0.3)
l<-Random.hclustering.validity(M, dim=d, pmethod = "PMO", c = 3,
hmethod = "average", n = 20)
Run the code above in your browser using DataLab