projects
/
iramuteq
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
cae026c
)
dist labbe
author
Pierre Ratinaud
<ratinaud@univ-tlse2.fr>
Mon, 24 Apr 2017 09:32:04 +0000
(11:32 +0200)
committer
Pierre Ratinaud
<ratinaud@univ-tlse2.fr>
Mon, 24 Apr 2017 09:32:04 +0000
(11:32 +0200)
PrintRScript.py
patch
|
blob
|
history
diff --git
a/PrintRScript.py
b/PrintRScript.py
index
af4a9bf
..
e312ee0
100644
(file)
--- a/
PrintRScript.py
+++ b/
PrintRScript.py
@@
-1316,7
+1316,7
@@
class LabbeScript(PrintRScript) :
self.analyse.parent.RscriptsPath['Rgraph']])
txt = """
tab <- read.csv2("%s", header=TRUE, sep=';', row.names=1)
self.analyse.parent.RscriptsPath['Rgraph']])
txt = """
tab <- read.csv2("%s", header=TRUE, sep=';', row.names=1)
- """ % (
self.pathout['tableafcm.csv']
)
+ """ % (
ffr(self.pathout['tableafcm.csv'])
)
txt += """
dist.mat <- dist.labbe(tab)
dist.mat <- as.dist(dist.mat, upper=F, diag=F)
txt += """
dist.mat <- dist.labbe(tab)
dist.mat <- as.dist(dist.mat, upper=F, diag=F)
@@
-1328,7
+1328,7
@@
class LabbeScript(PrintRScript) :
par(cex=1.2)
plot.phylo(as.phylo(chd), type='unrooted', lab4ut="axial")
dev.off()
par(cex=1.2)
plot.phylo(as.phylo(chd), type='unrooted', lab4ut="axial")
dev.off()
- """ % (
self.pathout['distmat.csv'], self.pathout['dist-labbe.png']
)
+ """ % (
ffr(self.pathout['distmat.csv']), ffr(self.pathout['dist-labbe.png'])
)
self.add(txt)
self.write()
self.add(txt)
self.write()