def RPamTxt(corpus, RscriptPath):
DicoPath = corpus.pathout
param = corpus.parametres
- print param
txt = """
source("%s")
""" % (RscriptPath['pamtxt'])
PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", what='coord', deb=debsup, fin=(debet-1), xlab = xlab, ylab = ylab, xmin = xyminmax$xminmax[1], xmax = xyminmax$xminmax[2], ymin = xyminmax$yminmax[1], ymax = xyminmax$yminmax[2])
""" % (DictChdTxtOut['AFC2DSL_OUT'])
txt += """
+ if ((fin - debet) > 2) {
PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", what='coord', deb=debet, fin=fin, xlab = xlab, ylab = ylab, xmin = xyminmax$xminmax[1], xmax = xyminmax$xminmax[2], ymin = xyminmax$yminmax[1], ymax = xyminmax$yminmax[2])
+ }
""" % (DictChdTxtOut['AFC2DEL_OUT'])
txt += """
PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", col=TRUE, what='coord', xlab = xlab, ylab = ylab, xmin = xyminmax$xminmax[1], xmax = xyminmax$xminmax[2], ymin = xyminmax$yminmax[1], ymax = xyminmax$yminmax[2])
self.packages(['wordcloud'])
bg_col = Rcolor(self.parametres['col_bg'])
txt_col = Rcolor(self.parametres['col_text'])
+ if self.parametres['svg'] :
+ svg = 'TRUE'
+ else :
+ svg = 'FALSE'
txt = """
+ svg <- %s
+ """ % svg
+ txt += """
act <- read.csv2("%s", header = FALSE, row.names=1, sep='\t')
selected.col <- read.table("%s")
toprint <- as.matrix(act[selected.col[,1] + 1,])
toprint <- as.matrix(toprint[order(toprint[,1], decreasing=TRUE),])
toprint <- as.matrix(toprint[1:maxword,])
}
- open_file_graph("%s", width = %i, height = %i)
+ open_file_graph("%s", width = %i, height = %i , svg = svg)
par(bg=rgb%s)
wordcloud(row.names(toprint), toprint[,1], scale=c(%f,%f), random.order=FALSE, colors=rgb%s)
dev.off()