# HG changeset patch
# User davidvanzessen
# Date 1381318148 14400
# Node ID c43c63f4ef80be1f93ce3d84aab9fccfdff2d12b
# Parent  0e6f33e21c601d2bac4a25990376d07a12d550d1
Uploaded

diff -r 0e6f33e21c60 -r c43c63f4ef80 RScript.r
--- 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()