- indices1 = clusteringTask1(1:n, getContribs, K1, 75, verbose=TRUE, parll=FALSE)
+ require("cluster", quietly=TRUE)
+ browser()
+ algoClust1 = function(contribs,K) cluster::pam(contribs,K,diss=FALSE)$id.med
+ indices1 = clusteringTask1(1:n, getContribs, K1, algoClust1, 75, verbose=TRUE, parll=FALSE)