X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=PrintRScript.py;fp=PrintRScript.py;h=e334a87660cc74ed61e6e8ed3abd6c3cbee34935;hp=0673aa491013f6a0381bacf5ae846d43e943aa5e;hb=0af826e66e86cc0a40361e00549fb64dbd2b92d0;hpb=bf4bf75287ff2a34d072cf7f7c0dea6ba4281a24

diff --git a/PrintRScript.py b/PrintRScript.py
index 0673aa4..e334a87 100755
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -167,11 +167,11 @@ def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'sv
         """ % ffr(DicoPath['TableUc2'])
     txt += """
     log1 <- "%s"
-    print('FIXME : source newCHD')
-    source('/home/pierre/workspace/iramuteq/Rscripts/newCHD.R')
-    nbproc <- %s
-    chd1<-CHD(data1, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path, find='matrix', select.next='size', sample=20, amp=500, proc.nb=nbproc)
-    #chd1<-CHD(data1, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path)#, log.file = log1)
+    #print('FIXME : source newCHD')
+    #source('/home/pierre/workspace/iramuteq/Rscripts/newCHD.R')
+    #nbproc <- %s
+    #chd1<-CHD(data1, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path, find='matrix', select.next='size', sample=20, amp=500, proc.nb=nbproc)
+    chd1<-CHD(data1, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path)#, log.file = log1)
     """ % (ffr(DicoPath['log-chd1.txt']), nbproc)
 
     if classif_mode == 0: