From: Benjamin Auder <benjamin.auder@somewhere>
Date: Thu, 19 Jan 2017 01:08:10 +0000 (+0100)
Subject: separate TODO and wrapper example
X-Git-Url: https://git.auder.net/app_dev.php/doc/current/rpsls.js?a=commitdiff_plain;h=65bd7506a22f58e425d5de32cd58b70efad2b2ab;p=epclust.git

separate TODO and wrapper example
---

diff --git "a/\033\033\033:q" "b/\033\033\033:q"
new file mode 100644
index 0000000..269f22e
--- /dev/null
+++ "b/\033\033\033:q"
@@ -0,0 +1,65 @@
+diff --git a/TODO b/TODO
+index 9fd325a..cd454f2 100644
+--- a/TODO
++++ b/TODO
+@@ -18,25 +18,21 @@ A faire:
+  - finir les experiences (sur nb de classes, nb de curves / chunk, nb de procs)
+    et sur d'autres architectures
+ 
+-
+-
+-
+-
+ dans old_C_code/build :
+ cmake ../stage1/src
+ make
+ 
+ dans data/, lancer R puis :
+ source("../old_C_code/wrapper.R")
+-serialize("../old_C_code/build", "2009.csv","2009.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")
++serialize("../old_C_code/build", "2009.csv","2009.bin",1)
++library(parallel)
++np = detectCores()
++nbSeriesPerChunk = 3000
++nbClusters = 20
++ppam_exe("../old_C_code/build",np,"2009.bin",nbSeriesPerChunk,nbClusters)
++C = getMedoids("../old_C_code/build", "ppamResult.xml", "ppamFinalSeries.bin")
++first100series = deserialize("../old_C_code/build", "2009.bin", "2009.csv.part", "1-100")
++distor = getDistor("../old_C_code/build", "ppamResult.xml", "2009.bin")
+ 
+ - interface matrice -> binaire
+ 	 OK
+diff --git a/old_C_code/wrapper.R b/old_C_code/wrapper.R
+index ee15a79..d6d05e1 100644
+--- a/old_C_code/wrapper.R
++++ b/old_C_code/wrapper.R
+@@ -1,3 +1,21 @@
++#Exemple :
++#
++#dans old_C_code/build :
++#cmake ../stage1/src
++#make
++#
++#dans data/, lancer R puis :
++#source("../old_C_code/wrapper.R")
++#serialize("../old_C_code/build", "2009.csv","2009.bin",1)
++#library(parallel)
++#np = detectCores()
++#nbSeriesPerChunk = 3000
++#nbClusters = 20
++#ppam_exe("../old_C_code/build",np,"2009.bin",nbSeriesPerChunk,nbClusters)
++#C = getMedoids("../old_C_code/build", "ppamResult.xml", "ppamFinalSeries.bin")
++#first100series = deserialize("../old_C_code/build", "2009.bin", "2009.csv.part", "1-100")
++#distor = getDistor("../old_C_code/build", "ppamResult.xml", "2009.bin")
++
+ ppam_exe = function(path=".", np=parallel::detectCores(), data=NULL,
+ 	nbSeriesPerChunk, nbClusters, randomize=1, p_dissims=2)
+ {
diff --git a/TODO b/TODO
index 9fd325a..cd454f2 100644
--- a/TODO
+++ b/TODO
@@ -18,25 +18,21 @@ A faire:
  - finir les experiences (sur nb de classes, nb de curves / chunk, nb de procs)
    et sur d'autres architectures
 
-
-
-
-
 dans old_C_code/build :
 cmake ../stage1/src
 make
 
 dans data/, lancer R puis :
 source("../old_C_code/wrapper.R")
-serialize("../old_C_code/build", "2009.csv","2009.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")
+serialize("../old_C_code/build", "2009.csv","2009.bin",1)
+library(parallel)
+np = detectCores()
+nbSeriesPerChunk = 3000
+nbClusters = 20
+ppam_exe("../old_C_code/build",np,"2009.bin",nbSeriesPerChunk,nbClusters)
+C = getMedoids("../old_C_code/build", "ppamResult.xml", "ppamFinalSeries.bin")
+first100series = deserialize("../old_C_code/build", "2009.bin", "2009.csv.part", "1-100")
+distor = getDistor("../old_C_code/build", "ppamResult.xml", "2009.bin")
 
 - interface matrice -> binaire
 	 OK
diff --git a/old_C_code/wrapper.R b/old_C_code/wrapper.R
index ee15a79..d6d05e1 100644
--- a/old_C_code/wrapper.R
+++ b/old_C_code/wrapper.R
@@ -1,3 +1,21 @@
+#Exemple :
+#
+#dans old_C_code/build :
+#cmake ../stage1/src
+#make
+#
+#dans data/, lancer R puis :
+#source("../old_C_code/wrapper.R")
+#serialize("../old_C_code/build", "2009.csv","2009.bin",1)
+#library(parallel)
+#np = detectCores()
+#nbSeriesPerChunk = 3000
+#nbClusters = 20
+#ppam_exe("../old_C_code/build",np,"2009.bin",nbSeriesPerChunk,nbClusters)
+#C = getMedoids("../old_C_code/build", "ppamResult.xml", "ppamFinalSeries.bin")
+#first100series = deserialize("../old_C_code/build", "2009.bin", "2009.csv.part", "1-100")
+#distor = getDistor("../old_C_code/build", "ppamResult.xml", "2009.bin")
+
 ppam_exe = function(path=".", np=parallel::detectCores(), data=NULL,
 	nbSeriesPerChunk, nbClusters, randomize=1, p_dissims=2)
 {