X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;f=PrintRScript.py;h=e005361f2ef11963477a030297597033b754ff96;hb=refs%2Fheads%2F3.0;hp=f8aaa961ee6bd3eefe99570aee34014c6ef82a7c;hpb=8eea14b067cf17b958b3482ffe7634356a0a0384;p=iramuteq

diff --git a/PrintRScript.py b/PrintRScript.py
index f8aaa96..e005361 100755
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -125,7 +125,7 @@ class Alceste2(PrintRScript):
 #
 
 
-def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=1):
+def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=10):
     txt = """
     source("%s")
     source("%s")
@@ -176,7 +176,7 @@ def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'sv
         row.names(data2) <- 1:nrow(data2)
         """ % ffr(DicoPath['TableUc2'])
     txt += """
-    log1 <- "%s"
+    #log1 <- "%s"
     #print('FIXME : source newCHD')
     #source('/home/pierre/workspace/iramuteq/Rscripts/newCHD.R')
     #nbproc <- %s
@@ -741,7 +741,7 @@ class PrintSimiScript(PrintRScript):
                 """
             txt += """
             dm <-readMM(dm.path)
-            cn <- read.table(cn.path, sep="\t", quote='"')
+            cn <- read.table(cn.path, sep="\t", quote='"', comment.char="")
             colnames(dm) <- cn[,1]
             if (file.exists(selected.col)) {
                 sel.col <- read.csv2(selected.col, header = FALSE)
@@ -1243,7 +1243,7 @@ class ProtoScript(PrintRScript):
         }
         mat <- read.csv2("%s", header = FALSE, row.names=1, sep='\t', quote='"', dec='.')
         open_file_graph("%s",height=800, width=1000)
-        prototypical(mat, mfreq = %s, mrank = %s, cloud = FALSE, cexrange=c(1,2.4), cexalpha= c(0.4, 1), type = '%s', mat.col.path='/tmp/matcol.csv')
+        prototypical(mat, mfreq = %s, mrank = %s, cloud = FALSE, cexrange=c(1,2.4), cexalpha= c(0.4, 1), type = '%s')#, mat.col.path='/tmp/matcol.csv')
         dev.off()
         """ % (ffr(self.analyse.pathout['table.csv']), ffr(self.analyse.pathout['proto.png']), self.parametres['limfreq'], self.parametres['limrang'], self.parametres['typegraph'])
         self.add(txt)