From b02f2cba3d8c7dba29a54de8b589626d008d2c5b Mon Sep 17 00:00:00 2001
From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Tue, 18 Nov 2014 00:25:22 +0100
Subject: [PATCH] patch from David Skalinder : correction on the second
 dendrogram for double clustering

---
 PrintRScript.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PrintRScript.py b/PrintRScript.py
index 7f7e4c2..8e54bf4 100644
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -238,7 +238,7 @@ def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'sv
         plot(tree.cut2$tree.cl)
         dev.off()
         open_file_graph("%s", width = 600, height=400)
-        plot(tree.cut1$dendro_tot_cl)
+        plot(tree.cut2$dendro_tot_cl)
         dev.off()
         """ % (ffr(DicoPath['dendro2']), ffr(DicoPath['arbre2']))
         
-- 
2.7.4