X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=old_C_code%2Fstage1%2Fwrapper.R;fp=code%2Fstage1%2Fwrapper.R;h=0ce9786c5ce2bd502aeac07a5d23b8b83326de15;hb=7709d507dfab9256a401f2c77ced7bc70d90fec3;hp=0a957d8062552459fc7a3a2760242e06627bc6c5;hpb=38aef1cbef037257bf03dd1e65fbb682a32e3f2c;p=epclust.git

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
--- 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=""))
+}