Mercurial > repos > stef > qdnaseq

comparison QDNAseq.R @ 68:68a090cffb6f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author stef
date Tue, 26 Aug 2014 07:49:13 -0400
parents 2d939f4c23fe
children b4477584bb03
comparison
equal deleted inserted replaced
67:2d939f4c23fe 68:68a090cffb6f
296 img_file_path <- paste( outputPath, '/', img_file, sep='' ) 296 img_file_path <- paste( outputPath, '/', img_file, sep='' )
297 297
298 ## COPYNUMBER PLOT 298 ## COPYNUMBER PLOT
299 png( img_file_path, width=PLOT_WIDTH, height=PLOT_HEIGHT, res=PLOT_RES ); 299 png( img_file_path, width=PLOT_WIDTH, height=PLOT_HEIGHT, res=PLOT_RES );
300 par( PAR_SET ) 300 par( PAR_SET )
301 plot( copyNumbersSmooth[ ,sample ], main=paste(sample, ": CopyNumbers", sep="") ); 301 plot( copyNumbersSmooth[ ,sample ], main=paste(sample, ": CopyNumbers", sep="") )
302 mtext( paste( "(", binSizeString, " bins)" sep=""), 3 ) 302 mtext( paste( binSizeString, " bins" sep=""), 3 )
303 abline( h=c(-2,-1,1,2,3,4), lty=1, lwd=0.5, col="grey" ) 303 abline( h=c(-2,-1,1,2,3,4), lty=1, lwd=0.5, col="grey" )
304 dev.off() 304 dev.off()
305 305
306 plotted_images[[ paste(binSize, sample, type, sep="_" ) ]] <- img_file 306 plotted_images[[ paste(binSize, sample, type, sep="_" ) ]] <- img_file
307 307