--- /dev/null
+#chd.R
+source('%s')
+source('%s')
+source('%s')
+source('%s')
+classif.mode <- %i
+file.data1 <- '%s'
+file.data2 <- '%s'
+file.listuce1 <- '%s'
+file.listuce2 <- '%s'
+file.uce <- '%s'
+mincl <- %i
+graph.arbre1 <- '%s'
+graph.arbre2 <- '%s'
+graph.dendro1 <- '%s'
+graph.dendro2 <- '%s'
+data.out <- %s
+
+data1<-read.csv2(file.data1, header = FALSE)
+
+if (classif.mode == 0) {
+ data2<-read.csv2(file.data2, header = FALSE)
+}
+chd1<-CHD(data1)
+
+if (classif.mode == 0) {
+ chd2<-CHD(data2)
+} else {
+ chd2<-chd1
+}
+
+#lecture des uce
+listuce1<-read.csv2(file.listuce1)
+
+if (classif.mode == 0) {
+ listuce2<-read.csv2(file.listuce2)
+}
+
+rm(data1)
+
+if (classif.mode == 0) rm(data2)
+
+chd.result <- Rchdtxt(file.uce,mincl=mincl,classif_mode=classif.mode)
+n1 <- chd.result$n1
+classeuce1 <- chd.result$cuce1
+classeuce2 <- chd.result$cuce2
+
+tree.tot1 <- make_tree_tot(chd1)
+open_file_graph(graph.arbre1, widt = 600, height=400)
+plot(tree.tot1$tree.cl)
+dev.off()
+
+if (classif.mode == 0) {
+ tree.tot2 <- make_tree_tot(chd2)
+ open_file_graph(graph.arbre2, width = 600, height=400)
+ plot(tree.tot2$tree.cl)
+ dev.off()
+}
+tree.cut1 <- make_dendro_cut_tuple(tree.tot1$dendro_tuple, chd.result$coord_ok, classeuce1, 1)
+classes<-n1[,9]
+open_file_graph(graph.dendro1, width = 600, height=400)
+plot.dendropr(tree.cut1$tree.cl,classes)
+dev.off()
+
+if (classif.mode == 0) {
+ tree.cut2 <- make_dendro_cut_tuple(tree.tot2$dendro_tuple, chd.result$coord_ok, classeuce2, 2)
+ open_file_graph(graph.dendro2, width = 600, height=400)
+ plot(tree.cut2$tree.cl)
+ dev.off()
+}
+save.image(file=data.out)
+
+
+(RscriptPath['CHD'], RscriptPath['chdtxt'], RscriptPath['anacor'], RscriptPath['Rgraph'])
+
+ """ % DicoPath['TableUc1']
+
+ """ % DicoPath['TableUc2']
+""" % DicoPath['listeuce1']
+
+ """ % DicoPath['listeuce2']
+""" % (DicoPath['uce'], mincl, classif_mode)
+"""%DicoPath['arbre1']
+ """ %DicoPath['arbre2']
+""" % DicoPath['dendro1']
+ """ % DicoPath['dendro2']
+% DicoPath['RData']