code/draft_R_pkg/R/algorithms.R

   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 }