From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Mon, 24 Apr 2017 09:32:04 +0000 (+0200)
Subject: dist labbe
X-Git-Url: http://iramuteq.org/git?a=commitdiff_plain;h=0549ce20c3cb5d52e86fd7e08ae3f87184a1b051;p=iramuteq

dist labbe
---

diff --git a/PrintRScript.py b/PrintRScript.py
index af4a9bf..e312ee0 100644
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -1316,7 +1316,7 @@ class LabbeScript(PrintRScript) :
                       self.analyse.parent.RscriptsPath['Rgraph']])
         txt = """
         tab <- read.csv2("%s", header=TRUE, sep=';', row.names=1)
-        """ % (self.pathout['tableafcm.csv'])
+        """ % (ffr(self.pathout['tableafcm.csv']))
         txt += """
         dist.mat <- dist.labbe(tab)
         dist.mat <- as.dist(dist.mat, upper=F, diag=F)
@@ -1328,7 +1328,7 @@ class LabbeScript(PrintRScript) :
         par(cex=1.2)
         plot.phylo(as.phylo(chd), type='unrooted', lab4ut="axial")
         dev.off()
-        """ % (self.pathout['distmat.csv'], self.pathout['dist-labbe.png'])
+        """ % (ffr(self.pathout['distmat.csv']), ffr(self.pathout['dist-labbe.png']))
         self.add(txt)
         self.write()