Commit | Line | Data |
---|---|---|
1 | curvesToCoeffs = function(series) | |
2 | { | |
3 | #... return wavelets coeffs : compute in parallel ! | |
4 | #TODO: always keep ID in first column | |
5 | } | |
6 | ||
7 | coeffsToCurves = function(coeffs) | |
8 | { | |
9 | #re-expand on wavelet basis | |
10 | } | |
11 | ||
12 | getClusters = function(data, K) | |
13 | { | |
14 | pam_output = pam(data, K) | |
15 | return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids, | |
16 | ranks=pam_output$id.med ) ) | |
17 | } |