self.add('load("%s")' % ffr(val))
def write(self):
- with open(self.scriptout, 'w') as f:
+ with open(self.scriptout, 'w', encoding='utf8') as f:
f.write(self.script)
#
-def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=1):
+def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=10):
txt = """
source("%s")
source("%s")
row.names(data2) <- 1:nrow(data2)
""" % ffr(DicoPath['TableUc2'])
txt += """
- log1 <- "%s"
+ #log1 <- "%s"
#print('FIXME : source newCHD')
#source('/home/pierre/workspace/iramuteq/Rscripts/newCHD.R')
#nbproc <- %s
txt += """
#save.image(file="%s")
""" % (ffr(DicoPath['RData']))
- fileout = open(DicoPath['Rchdtxt'], 'w')
+ fileout = open(DicoPath['Rchdtxt'], 'w', encoding='utf8')
fileout.write(txt)
fileout.close()
txt += """
save.image(file="%s")
""" % DicoPath['RData']
- fileout = open(DicoPath['Rchdtxt'], 'w')
+ fileout = open(DicoPath['Rchdtxt'], 'w', encoding='utf8')
fileout.write(txt)
fileout.close()
txt += """
save.image(file="%s")
""" % ffr(DicoPath['RData'])
- fileout = open(DicoPath['Rchdquest'], 'w')
+ fileout = open(DicoPath['Rchdquest'], 'w', encoding='utf8')
fileout.write(txt)
fileout.close()
rm(tablesqrpet)
save.image(file="%s")
""" % ffr(DictChdTxtOut['RData'])
- file = open(DictChdTxtOut['RTxtProfGraph'], 'w')
+ file = open(DictChdTxtOut['RTxtProfGraph'], 'w', encoding='utf8')
file.write(txt)
file.close()
else:
nodesfile = 'NULL'
edgesfile = 'NULL'
- with open(self.RscriptsPath['afc_graph'], 'r') as f:
+ with open(self.RscriptsPath['afc_graph'], 'r', encoding='utf8') as f:
txt = f.read()
# self.DictPathOut['RData'], \
scripts = txt % (ffr(self.RscriptsPath['Rgraph']),\
make.simi.afc(dm,chistabletot, lim=%i, alpha = %.2f, movie = %s)
""" % (simi3d.spin_1.GetValue(), float(simi3d.slider_1.GetValue())/100, movie)
tmpfile = tempfile.mktemp(dir=self.parent.TEMPDIR)
- tmp = open(tmpfile,'w')
+ tmp = open(tmpfile,'w', encoding='utf8')
tmp.write(txt)
tmp.close()
return tmpfile
coordinf <- coord[toinf]
valinf <- di[toinf]
text(x=coordinf, y=valinf - 0.1, 'i')
- }
+ }
c <- colMeans(coord)
c1 <- c[-1]
c2 <- c[-length(c)]
mn <- round(min(di))
mx <- round(max(di))
for (i in mn:mx) {
- if ((i/d) == (i%%/%%d)) {
+ if ((i/d) == (i%%/%%d)) {
abline(h=i,lty=3)
}
}
par(mar=c(0,0,0,0))
plot(0, axes = FALSE, pch = '')
- legend(x = 'center' , rownames(di), fill = color)
+ legend(x = 'center' , rownames(di) , fill = color)
dev.off()
- """ % (ffr(parametres['rgraph']), parametres['width'], parametres['height'], ffr(parametres['tmpgraph']), parametres['svg'])
+ """ % (ffr(parametres['rgraph']), parametres['width'], parametres['height'], ffr(parametres['tmpgraph']), parametres['svg'])
else:
txt += """
load("%s")
"""
txt += """
dm <-readMM(dm.path)
- cn <- read.table(cn.path, sep="\t", quote='"')
+ cn <- read.table(cn.path, sep="\t", quote='"', comment.char="")
colnames(dm) <- cn[,1]
if (file.exists(selected.col)) {
sel.col <- read.csv2(selected.col, header = FALSE)
if (!is.null(graph.simi$com)) {
com <- graph.simi$com
colm <- rainbow(length(com))
- if (vertex.size != 0 || graph.simi$halo) {
+ if (sum(vertex.size) != 0 || graph.simi$halo) {
vertex.label.color <- 'black'
vertex.col <- colm[membership(com)]
} else {
}
mat <- read.csv2("%s", header = FALSE, row.names=1, sep='\t', quote='"', dec='.')
open_file_graph("%s",height=800, width=1000)
- prototypical(mat, mfreq = %s, mrank = %s, cloud = FALSE, cexrange=c(1,2.4), cexalpha= c(0.4, 1), type = '%s', mat.col.path='/tmp/matcol.csv')
+ prototypical(mat, mfreq = %s, mrank = %s, cloud = FALSE, cexrange=c(1,2.4), cexalpha= c(0.4, 1), type = '%s')#, mat.col.path='/tmp/matcol.csv')
dev.off()
""" % (ffr(self.analyse.pathout['table.csv']), ffr(self.analyse.pathout['proto.png']), self.parametres['limfreq'], self.parametres['limrang'], self.parametres['typegraph'])
self.add(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']))
+ """ % (ffr(self.pathout['tgenlemchi2.csv']), ffr(self.pathout['tgenlempchi2.csv']))
self.add(txt)