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