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