b9f1c0c7 BA |
1 | getCoeffs = function(series) |
2 | { |
3 | #... return wavelets coeffs : compute in parallel ! |
4 | } |
5 | |
6 | getClusters = function(data, K) |
7 | { |
8 | pam_output = pam(data, K) |
9 | return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) ) |
10 | } |