work on main.R

[epclust.git] / code / draft_R_pkg / R / algorithms.R

diff --git a/code/draft_R_pkg/R/algorithms.R b/code/draft_R_pkg/R/algorithms.R
index e27a235..eda05e5 100644 (file)
--- a/code/draft_R_pkg/R/algorithms.R
+++ b/code/draft_R_pkg/R/algorithms.R
@@ -1,10 +1,17 @@
-getCoeffs = function(series)
+curvesToCoeffs = function(series)
 {
        #... return wavelets coeffs : compute in parallel !
+       #TODO: always keep ID in first column
+}
+
+coeffsToCurves = function(coeffs)
+{
+       #re-expand on wavelet basis
 }
 
 getClusters = function(data, K)
 {
        pam_output = pam(data, K)
-       return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) )
+       return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids,
+               ranks=pam_output$id.med ) )
 }