- 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",
+ algoClust1=function(data,K) cluster::pam(t(data),K,diss=FALSE)$id.med,
+ algoClust2=function(dists,K) t( cluster::pam(dists,K,diss=TRUE)$medoids ),
+ wav_filt="d8", contrib_type="absolute",
+ WER="end",sync_mean=TRUE,