self.pathout = analyse.pathout
self.analyse = analyse
self.parametres = analyse.parametres
- self.scriptout = self.pathout['temp']
+ self.scriptout = self.pathout['lastRscript.R']
self.script = u"#Script genere par IRaMuTeQ - %s\n" % datetime.now().ctime()
def add(self, txt) :
seuil <- %s
if (!is.null(seuil)) {
if (method!='cooc') {
- seuil <- seuil/100
+ seuil <- seuil/1000
}
}
""" % seuil
RData = os.path.join(path,'RData.RData')
txt += load % (ffr(RData), gname)
self.add(txt)
- self.sources(['/home/pierre/workspace/iramuteq/Rscripts/simi.R'])
+ self.sources([self.analyse.parent.RscriptsPath['simi']])
txt = """
ng <- merge.graph(graphs)
ngraph <- list(graph=ng, layout=layout.fruchterman.reingold(ng, dim=3), labex.cex=V(ng)$weight)
tgen <- read.csv2("%s", row.names = 1, sep = '\\t')
""" % ffr(self.parametres['tgeneff'])
txt += """
+ tgenlem <- read.csv2("%s", row.names = 1, sep = '\\t')
+ """ % ffr(self.parametres['tgenlemeff'])
+ txt += """
res <- build.prof.tgen(tgen)
write.table(res$chi2, file = "%s", sep='\\t', col.names = NA)
write.table(res$pchi2, file = "%s", sep='\\t', col.names = NA)
""" % (ffr(self.pathout['tgenchi2.csv']), ffr(self.pathout['tgenpchi2.csv']))
+ txt += """
+ reslem <- build.prof.tgen(tgenlem)
+ write.table(reslem$chi2, file = "%s", sep='\\t', col.names = NA)
+ write.table(reslem$pchi2, file = "%s", sep='\\t', col.names = NA)
+ """ % (ffr(self.pathout['tgenlemchi2.csv']), ffr(self.pathout['tgenlempchi2.csv']))
self.add(txt)
class FreqMultiScript(PrintRScript):
dev.off()
""" % ffr(self.pathout['barplotrow.png'])
self.add(txt)
- self.write()
\ No newline at end of file
+ self.write()