From: pierre Date: Fri, 30 Nov 2018 19:21:10 +0000 (+0100) Subject: ... X-Git-Url: http://iramuteq.org/git?a=commitdiff_plain;h=0af826e66e86cc0a40361e00549fb64dbd2b92d0;p=iramuteq ... --- 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: