Mercurial > repos > davidvanzessen > test_plotting_merged

changeset 1:c43c63f4ef80 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 09 Oct 2013 07:29:08 -0400
parents 0e6f33e21c60
children aac19ac7cb21
files RScript.r
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/RScript.r	Wed Oct 09 04:31:48 2013 -0400
+++ b/RScript.r	Wed Oct 09 07:29:08 2013 -0400
@@ -121,7 +121,7 @@
 completeVD$log = log(completeVD$Length)
 completeVD$log[is.na(completeVD$log)] = 0
 l = split(completeVD, f=completeVD[,"Sample"])
-png("HeatmapVD%d.png")
+png("HeatmapVD%d.png", width=100+(15*length(Vchain$v.name)), height=100+(15*length(Dchain$v.name)))
 lapply(l, FUN=plotVD)
 dev.off()
 
@@ -142,7 +142,7 @@
 completeVJ$log = log(completeVJ$Length)
 completeVJ$log[is.na(completeVJ$log)] = 0
 l = split(completeVJ, f=completeVJ[,"Sample"])
-png("HeatmapVJ%d.png")
+png("HeatmapVJ%d.png", width=100+(15*length(Vchain$v.name)), height=100+(15*length(Jchain$v.name)))
 lapply(l, FUN=plotVJ)
 dev.off()
 
@@ -162,7 +162,7 @@
 completeDJ$log = log(completeDJ$Length)
 completeDJ$log[is.na(completeDJ$log)] = 0
 l = split(completeDJ, f=completeDJ[,"Sample"])
-png("HeatmapDJ%d.png")
+png("HeatmapDJ%d.png", width=100+(15*length(Dchain$v.name)), height=100+(15*length(Jchain$v.name)))
 lapply(l, FUN=plotDJ)
 dev.off()