# \donttest{
# Multiple (20) hierarchical clusterings using Normal projections.
M <- generate.sample0(n=10, m=2, sigma=2, dim=800)
l.norm <- Multiple.Random.hclustering (M, dim=100, pmethod="Norm",
c=3, hmethod="average", n=20)
# The same as above, using Random Subspace projections.
l.RS <- Multiple.Random.hclustering (M, dim=100, pmethod="RS", c=3,
hmethod="average", n=20)
# The same as above, using PMO projections, but with the number of clusters set to 5
l.RS <- Multiple.Random.hclustering (M, dim=100, pmethod="PMO", c=5,
hmethod="average", n=20)
# The same as above, using the single linkage method
l.RS.single <- Multiple.Random.hclustering (M, dim=100, pmethod="PMO",
c=5, hmethod="single", n=20)
# }
Run the code above in your browser using DataLab