fix typo

diff --git a/epclust/R/main.R b/epclust/R/main.R
index fe78e63..4fdc5ae 100644 (file)
--- a/epclust/R/main.R
+++ b/epclust/R/main.R
@@ -292,7 +292,7 @@ claws <- function(series, K1, K2, nb_series_per_chunk, nb_items_clust=5*K1,
        }
 
        # As explained above, we obtain after all runs ntasks*[K1 or K2] medoids indices,
-       # depending wether WER=="end" or "mix", respectively.
+       # depending whether WER=="end" or "mix", respectively.
        indices_medoids_all <-
                if (parll && ntasks>1)
                        unlist( parallel::parLapply(cl, indices_tasks, runTwoStepClustering) )