epclust = function(data, K1, K2, ntasks=1, nb_series_per_chunk=50*K1, min_series_per_chunk=5*K1,
wf="haar", WER="end", ncores_tasks=1, ncores_clust=4, random=TRUE)
{
epclust = function(data, K1, K2, ntasks=1, nb_series_per_chunk=50*K1, min_series_per_chunk=5*K1,
wf="haar", WER="end", ncores_tasks=1, ncores_clust=4, random=TRUE)
{