major folder reorganisation, R pkg is now epclust/ at first level. Experimental usage...

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

diff --git a/code/stage1/wrapper.R b/old_C_code/stage1/wrapper.R
similarity index 85%
rename from code/stage1/wrapper.R
rename to old_C_code/stage1/wrapper.R
index 0a957d8..0ce9786 100644 (file)
--- a/code/stage1/wrapper.R
+++ b/old_C_code/stage1/wrapper.R
@@ -33,3 +33,10 @@ getMedoids = function(path=".", xmlResult = "ppamResult.xml",
        ranks = as.integer( xmlToList( xmlParse(xmlResult) )$ranks )
        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=""))
+}