From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Mon, 17 Nov 2014 23:25:22 +0000 (+0100)
Subject: patch from David Skalinder : correction on the second dendrogram for
X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=commitdiff_plain;h=b02f2cba3d8c7dba29a54de8b589626d008d2c5b

patch from David Skalinder : correction on the second dendrogram for
double clustering
---

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']))