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