clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust,
ncores_clust=3, verbose=FALSE, parll=TRUE)
{
clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust,
ncores_clust=3, verbose=FALSE, parll=TRUE)
{
{
# Balance tasks by splitting the indices set - as evenly as possible
indices_workers <- .splitIndices(indices, nb_items_clust, min_size=K1+1)
{
# Balance tasks by splitting the indices set - as evenly as possible
indices_workers <- .splitIndices(indices, nb_items_clust, min_size=K1+1)