1 curvesToCoeffs = function(series)
3 #... return wavelets coeffs : compute in parallel !
4 #TODO: always keep ID in first column
7 coeffsToCurves = function(coeffs)
9 #re-expand on wavelet basis
12 getClusters = function(data, K)
14 pam_output = pam(data, K)
15 return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids,
16 ranks=pam_output$id.med ) )