data2 <- as(data2, "dgCMatrix")
row.names(data2) <- 1:nrow(data2)
""" % DicoPath['TableUc2']
+ log.info('ATTENTION ############# MODEPATATE ####################')
txt += """
- chd1<-CHD(data1, x = nbt, libsvdc = libsvdc, libsvdc.path = libsvdc.path)
+ chd1<-CHD(data1, x = nbt, mode.patate = TRUE, libsvdc = libsvdc, libsvdc.path = libsvdc.path)
"""
if classif_mode == 0:
if self.param['do_select_chi'] : do_select_chi = 'TRUE'
else : do_select_chi = 'FALSE'
+ if self.param['do_select_chi_classe'] : do_select_chi_classe = 'TRUE'
+ else : do_select_chi_classe = 'FALSE'
+
if self.param['cex_txt'] : cex_txt = 'TRUE'
else : cex_txt = 'FALSE'
self.param['select_nb'], \
do_select_chi, \
self.param['select_chi'], \
+ do_select_chi_classe, \
+ self.param['nbchic'], \
cex_txt, \
self.param['txt_min'], \
self.param['txt_max'], \
movie = "'" + ffr(os.path.dirname(self.DictPathOut['RData'])) + "'"
else :
movie = 'NULL'
- if self.section == 'chd_dist_quest' :
- header = 'TRUE'
- else :
- header = 'FALSE'
+
+ #if self.corpus.parametres['type'] == 'corpus' :
+ # header = 'TRUE'
+ #else :
+ # header = 'FALSE'
+ header = 'FALSE'
txt += """
dm<-read.csv2("%s",row.names=1,header = %s)
load("%s")
txt += """
et <- list()
"""
- for i,et in enumerate(self.tableau.etline) :
+ print self.parametres
+ for i,et in enumerate(self.parametres['stars']) :
txt+= """
et[[%i]] <- c(%s)
""" % (i+1, ','.join(et[1:]))