# Multiple (20) PAM clusterings using Normal projections.
M <- generate.sample0(n=10, m=2, sigma=2, dim=800)
l.norm <- Multiple.Random.PAM (M, dim=100, pmethod="Norm", c=3, n=20)
# The same as above, using Random Subspace projections.
l.RS <- Multiple.Random.PAM (M, dim=100, pmethod="RS", c=3, n=20)
# The same as above, using PMO projections, but with the number of clusters set to 7
l.RS.PMO <- Multiple.Random.PAM (M, dim=100, pmethod="PMO", c=7, n=20)
Run the code above in your browser using DataLab