+class MergeGraphes(PrintRScript) :
+ def __init__(self, parametres):
+ self.script = u"#Script genere par IRaMuTeQ - %s\n" % datetime.now().ctime()
+ self.pathout = PathOut()
+ self.parametres = parametres
+ self.scriptout = self.pathout['temp']
+
+ def make_script(self) :
+ #FIXME
+
+ txt = """
+ library(igraph)
+ library(Matrix)
+ graphs <- list()
+ """
+ load = """
+ load("%s")
+ g <- graph.simi$graph
+ V(g)$weight <- (graph.simi$mat.eff/nrow(dm))*100
+ graphs[['%s']] <- g
+ """
+ for i, graph in enumerate(self.parametres['lgraphes']) :
+ path = os.path.dirname(graph)
+ gname = ''.join(['g', `i`])
+ RData = os.path.join(path,'RData.RData')
+ txt += load % (ffr(RData), gname)
+ self.add(txt)
+ 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)
+ write.graph(ng, "%s", format = 'graphml')
+ """ % ffr(self.parametres['grapheout'])
+ self.add(txt)
+