progress in 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
new file mode 100644 (file)
index 0000000..e27a235
--- /dev/null
+++ b/code/draft_R_pkg/R/algorithms.R
@@ -0,0 +1,10 @@
+getCoeffs = function(series)
+{
+       #... return wavelets coeffs : compute in parallel !
+}
+
+getClusters = function(data, K)
+{
+       pam_output = pam(data, K)
+       return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) )
+}