'update'

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

diff --git a/code/draft_R_pkg/R/main.R b/code/draft_R_pkg/R/main.R
new file mode 100644 (file)
index 0000000..4120b39
--- /dev/null
+++ b/code/draft_R_pkg/R/main.R
@@ -0,0 +1,26 @@
+epclust = function(data=NULL, con=NULL, raw=FALSE, K, nbPerChunk, ...)
+{
+
+
+#TODO: just a wrapper which calls ppam.exe (system("...")) and reads output (binary) file to retrieve medoids + IDs
+       #on input: can be data or con; data handled by writing it to file (ascii or bin ?!),
+       #con handled 
+
+
+       #options for tmp files: in RAM, on disk, on DB (can be distributed)
+
+
+
+       if (!is.null(data))
+       {
+               #full data matrix
+               
+       } else if (!is.null(con))
+       {
+               #incremental connection
+               #read it one by one and get coeffs until nbSeriesPerChunk
+               #then launch a clustering task............
+       } else
+               stop("at least 'data' or 'con' argument must be present")
+
+}