- cat(paste(" computeClusters1() on ",nrow(contribs)," lines\n", sep=""))
- cluster::pam( t(contribs) , K1, diss=FALSE)$id.med
-}
-
-#' @rdname clustering
-#' @export
-computeClusters2 = function(distances, K2, verbose=FALSE)
-{
- if (verbose)
- cat(paste(" computeClusters2() on ",nrow(distances)," lines\n", sep=""))
- cluster::pam( distances , K2, diss=TRUE)$id.med
+ cat(paste(" algoClust2() on ",nrow(distances)," items\n", sep=""))
+ medoids[ ,algoClust2(distances,K2) ]