code/draft_R_pkg/R/algorithms.R

   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 }