- coeffs = readCoeffs(indices_chunk)
- cl = computeClusters(as.matrix(coeffs[,2:ncol(coeffs)]), K1, diss=FALSE)
- if (WER=="mix" > 0)
- {
- curves = computeSynchrones(cl)
- dists = computeWerDists(curves)
- cl = computeClusters(dists, K2, diss=TRUE)
- }
- indices_chunk[cl]
+ coefs = getCoefs(indices)
+ indices[ cluster::pam(coefs, K1, diss=FALSE)$id.med ]