X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=PrintRScript.py;fp=PrintRScript.py;h=570ad99f1cb81488408f89cc0f56a8aa247b27d5;hp=579bcae43cd507fa2219c499cd32961919459bb7;hb=a3f97f03976e9f02edfc6d33189eae0c25bcfaf0;hpb=421d727de5be048774ffdefcb3401d56be34e94b;ds=sidebyside diff --git a/PrintRScript.py b/PrintRScript.py index 579bcae..570ad99 100644 --- a/PrintRScript.py +++ b/PrintRScript.py @@ -163,13 +163,15 @@ def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'sv """ % ffr(DicoPath['TableUc2']) txt += """ log1 <- "%s" - chd1<-CHD(data1, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path, log.file = log1) + 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']) if classif_mode == 0: txt += """ log2 <- "%s" - chd2<-CHD(data2, x = nbt, mode.patate = mode.patate, svd.method = svd.method, libsvdc.path = libsvdc.path, log.file = log2) + chd2<-CHD(data2, x = nbt, mode.patate = mode.patate, svd.method = + svd.method, libsvdc.path = libsvdc.path)#, log.file = log2) """ % ffr(DicoPath['log-chd2.txt']) txt += """ @@ -1209,10 +1211,10 @@ class MergeGraphes(PrintRScript) : self.pathout = PathOut() self.parametres = parametres self.scriptout = self.pathout['temp'] - + def make_script(self) : #FIXME - + txt = """ library(igraph) library(Matrix)