X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=PrintRScript.py;h=af4a9bfa91f9b45dfcf080aecf228ea3aec0b46f;hp=a2dde7f622058d11de86fdef186cbfc0c70374e2;hb=cae026cb9d5c6997818bff728f382f55a1d73acf;hpb=a57eea4fed2471fdf373ea4ce5860244530eec24

diff --git a/PrintRScript.py b/PrintRScript.py
index a2dde7f..af4a9bf 100644
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -1341,7 +1341,7 @@ class ChronoChi2Script(PrintRScript) :
         dendrof <- "%s"
         load(inRData)
         load(dendrof)
-        """ % (self.pathout['RData.RData'], self.pathout['dendrogramme.RData'])
+        """ % (ffr(self.pathout['RData.RData']), ffr(self.pathout['dendrogramme.RData']))
         txt += """
         svg <- %s
         """ % self.parametres['svg']
@@ -1355,7 +1355,7 @@ class ChronoChi2Script(PrintRScript) :
         ptc <- tcp/sum(tcp)
         dpt <- t(dpt)
         dd <- dpt
-        """ % self.parametres['var']
+        """ % self.parametres['var'].replace(u'*', u"\\\\*")
         txt += """
         classes <- n1[,ncol(n1)]
         tcl <- table(classes)
@@ -1434,7 +1434,7 @@ class ChronoPropScript(PrintRScript) :
         dendrof <- "%s"
         load(inRData)
         load(dendrof)
-        """ % (self.pathout['RData.RData'], self.pathout['dendrogramme.RData'])
+        """ % (ffr(self.pathout['RData.RData']), ffr(self.pathout['dendrogramme.RData']))
         txt += """
         svg <- %s
         """ % self.parametres['svg']
@@ -1448,7 +1448,7 @@ class ChronoPropScript(PrintRScript) :
         ptc <- tcp/sum(tcp)
         dpt <- t(dpt)
         dd <- dpt
-        """ % self.parametres['var']
+        """ % self.parametres['var'].replace(u'*', u"\\\\*")
         txt += """
         classes <- n1[,ncol(n1)]
         tcl <- table(classes)