complete wrapper.R; update TODO

[epclust.git] / old_C_code / stage1 / wrapper.R

diff --git a/old_C_code/stage1/wrapper.R b/old_C_code/stage1/wrapper.R
index 0ce9786..ec859dc 100644 (file)
--- a/old_C_code/stage1/wrapper.R
+++ b/old_C_code/stage1/wrapper.R
@@ -34,9 +34,20 @@ getMedoids = function(path=".", xmlResult = "ppamResult.xml",
        return ( curves[ranks,] ) # == medoids
 }
 
-#TODO: check C function( is it correct?!)
 getDistor = function(path=".", xmlResult = "ppamResult.xml",
        finalSeries = "ppamFinalSeries.bin")
 {
        system(paste(path,"/ppam.exe classif ",finalSeries," ",xmlResult,sep=""))
 }
+
+serialize = function(path=".", csvSeries, binSeries, byCols=0, nbSeries=0)
+{
+       system(paste(path,"/ppam.exe serialize ",csvSeries," ",binSeries," ",byCols," ",nbSeries,
+               sep=""))
+}
+
+deserialize = function(path=".", binSeries, csvSeries, ranks="-1")
+{
+       system(paste(path,"/ppam.exe deserialize ",binSeries," ",csvSeries," ",ranks,sep=""))
+       return ( read.table(csvSeries, sep=",") )
+}