# HG changeset patch
# User stef
# Date 1407317092 14400
# Node ID b85c575ac1e3eee34dec811b9b573a8bd5edffa3
# Parent  4ea771d6aa741afc0b06e1debd0fc53310aa7fb2
Uploaded

diff -r 4ea771d6aa74 -r b85c575ac1e3 QDNAseq.R
--- a/QDNAseq.R	Wed Aug 06 05:02:39 2014 -0400
+++ b/QDNAseq.R	Wed Aug 06 05:24:52 2014 -0400
@@ -502,14 +502,14 @@
 		## ------------------------
 		html_noise_img <- htmlLink( 
 			path=noiseImgName, 
-			paste('<img id="', noiseImgName,'" src="', noiseImgName,'" alt="NoisePlot">', sep='') 
+			paste('<img id="', noiseImgName,'" src="', noiseImgName, '" width="', height/2, '" height="', height/2, '" alt="NoisePlot">', sep='') 
 		)
 		html_freq_img  <- htmlLink( 
 			path=freqImgName, 
-			paste('<img id="', freqImgName,'" src="', freqImgName,'" alt="FrequenceyPlot">', sep='') 
+			paste('<img id="', freqImgName,'" src="', freqImgName, '" width="', width/2, '" height="', height/2, ' alt="FrequenceyPlot">', sep='') 
 		)
 		extra_plots_html <- paste( 
-			html_noise_img, "\n<br \\>\n", 
+			html_noise_img, " \n", 
 			html_freq_img, "\n", sep='' 
 		)