X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Fclustering.R;h=8662f89e46ed6d903ecf91a814b656a4625db552;hp=b09c1bc1c899caf4b3f701db435747dc0c03f624;hb=0fe757f750f51e580d2c5a7b7f7df87cc405d12d;hpb=0486fbadb122cb4d78c5d9f248c29800a59eb24e

diff --git a/epclust/R/clustering.R b/epclust/R/clustering.R
index b09c1bc..8662f89 100644
--- a/epclust/R/clustering.R
+++ b/epclust/R/clustering.R
@@ -318,16 +318,16 @@ computeWerDists = function(synchrones, nbytes,endian,ncores_clust=1,verbose=FALS
 {
 	L = length(indices)
 	nb_workers = floor( L / nb_per_set )
-	rem = L %% max_nb_per_set
+	rem = L %% nb_per_set
 	if (nb_workers == 0 || (nb_workers==1 && rem==0))
 	{
-		# L <= max_nb_per_set, simple case
+		# L <= nb_per_set, simple case
 		indices_workers = list(indices)
 	}
 	else
 	{
 		indices_workers = lapply( seq_len(nb_workers), function(i)
-			indices[(nb_per_chunk*(i-1)+1):(nb_per_set*i)] )
+			indices[(nb_per_set*(i-1)+1):(nb_per_set*i)] )
 		# Spread the remaining load among the workers
 		rem = L %% nb_per_set
 		while (rem > 0)