X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=old_C_code%2Fwrapper.R;h=d6d05e15e45ff9b9d7b000b6e1f75113a8eae7a0;hb=65bd7506a22f58e425d5de32cd58b70efad2b2ab;hp=ee15a7988b2a77c00179bc518871a7cd9dd9cfcb;hpb=14cb6cf8266c0e1299f16a4b2352f54dbae26f44;p=epclust.git

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)
 {