From: Benjamin Auder Date: Sat, 14 Jan 2017 18:02:56 +0000 (+0100) Subject: complete wrapper.R; update TODO X-Git-Url: https://git.auder.net/variants/Chakart/pieces/doc/mini-custom.min.css?a=commitdiff_plain;h=5edda192f1a634ba284acdea7b6302f60df7b000;p=epclust.git complete wrapper.R; update TODO --- diff --git a/TODO b/TODO index 662635d..6937975 100644 --- a/TODO +++ b/TODO @@ -15,9 +15,20 @@ geometric structure of high dim data and dim reduction 2011 https://docs.docker.com/engine/getstarted/step_one/ A faire: - - finir les experiences (sur nb de classes, nb de curves / chunk, nb de procs) + - finir les experiences (sur nb de classes, nb de curves / chunk, nb de procs) et sur d'autres architectures - - interface matrice -> binaire + ==> code OK, source("wrapper.R") puis + serialize("build", "pathTo2010.csv","pathTo2010.bin") + ppam_exe("build",np,"pathTo2010.bin","nbSeriesPerChunk nbClusters 1 2") + C = getMedoids("build", "ppamResult.xml", "ppamFinalSeries.bin") + quelques_series = deserialize("pathTo2010.bin", rangs...) + #plot C ... et quelques_series ... + getDistor("buid", "ppamResult.xml", "pathTo2010.bin") + +- interface matrice -> binaire + OK + - courbe synchrone + ?? -Piste à explorer pour les comparaisons: H20 +Piste à explorer pour les comparaisons: H20 diff --git a/old_C_code/stage1/wrapper.R b/old_C_code/stage1/wrapper.R index 0ce9786..ec859dc 100644 --- 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=",") ) +}