- indices_chunk[cl]
-}
-
-# Apply the clustering algorithm (PAM) on a coeffs or distances matrix
-computeClusters = function(md, K, diss)
-{
- if (!require(cluster, quietly=TRUE))
- stop("Unable to load cluster library")
- cluster::pam(md, K, diss=diss)$id.med