-claws <- function(getSeries, K1, K2, nb_per_chunk,
- nb_items_clust1=7*K1,
- algo_clust1=function(data,K) cluster::pam(data,K,diss=FALSE),
- algo_clust2=function(dists,K) stats::kmeans(dists,K,iter.max=50,nstart=3),
- wav_filt="d8",contrib_type="absolute",
- WER="end",
- random=TRUE,
- ntasks=1, ncores_tasks=1, ncores_clust=4,
- sep=",",
- nbytes=4, endian=.Platform$endian,
- verbose=FALSE, parll=TRUE)
+claws <- function(series, K1, K2, nb_series_per_chunk, nb_items_clust=7*K1,
+ algoClust1=function(data,K) cluster::pam(t(data),K,diss=FALSE,pamonce=1)$id.med,
+ algoClust2=function(dists,K) cluster::pam(dists,K,diss=TRUE,pamonce=1)$id.med,
+ wav_filt="d8", contrib_type="absolute", WER="end", smooth_lvl=3, nvoice=4,
+ random=TRUE, ntasks=1, ncores_tasks=1, ncores_clust=3, sep=",", nbytes=4,
+ endian=.Platform$endian, verbose=FALSE, parll=TRUE)