From 0af826e66e86cc0a40361e00549fb64dbd2b92d0 Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 30 Nov 2018 20:21:10 +0100 Subject: [PATCH] ... --- PrintRScript.py | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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: -- 2.7.4