[Patchwork-commits] r81 - pkg/patchworkCG/R

[noreply at r-forge.r-project.org]

Author: mayrhofer
Date: 2012-02-08 10:51:48 +0100 (Wed, 08 Feb 2012)
New Revision: 81

Modified:
   pkg/patchworkCG/R/CG_KaCh.r
   pkg/patchworkCG/R/CG_KaChCN.r
Log:
fixed axis legends

Modified: pkg/patchworkCG/R/CG_KaCh.r
===================================================================
--- pkg/patchworkCG/R/CG_KaCh.r	2012-02-08 09:51:36 UTC (rev 80)
+++ pkg/patchworkCG/R/CG_KaCh.r	2012-02-08 09:51:48 UTC (rev 81)
@@ -51,7 +51,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
 		    	main = "",
-		    	xlab = "Total intensity -->",
+		    	xlab = "Coverage, all segments",
 		    	ylab = '',
 		    	col = c(col[!ix],col[ix]),
 		    	xlim = xlim,
@@ -60,7 +60,7 @@
         		xaxt="n")
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
-        	mtext(text="Allelic imbalance -->",side=2,line=4,las=3,cex=2)
+        	mtext(text="Allelic imbalance",side=2,line=4,las=3,cex=2)
 		
         	par(new=F)
         	mix <- mchr==as.character(this$chr)
@@ -77,7 +77,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity",
+		    	xlab = paste("Coverage,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),
@@ -100,7 +100,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
             	main = "",
-		    	xlab = "Allelic imbalance",
+		    	xlab = paste("Allelic imbalance,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),

Modified: pkg/patchworkCG/R/CG_KaChCN.r
===================================================================
--- pkg/patchworkCG/R/CG_KaChCN.r	2012-02-08 09:51:36 UTC (rev 80)
+++ pkg/patchworkCG/R/CG_KaChCN.r	2012-02-08 09:51:48 UTC (rev 81)
@@ -51,7 +51,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity -->",
+		    	xlab = "Coverage, all segments",
 		    	#ylab = "Allelic imbalance -->",
 		    	ylab = '',
 		    	col = c(col[!ix],col[ix]),
@@ -61,7 +61,7 @@
         		xaxt="n")
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
-        	mtext(text="Allelic imbalance -->",side=2,line=4,las=3,cex=2)
+        	mtext(text="Allelic imbalance",side=2,line=4,las=3,cex=2)
 		    	
 			col=rep('#000000',sum(ix))
         	col[pos[ix] < this$mid] <- colors_p(sum(pos[ix] < this$mid))
@@ -69,7 +69,7 @@
         	par(new=F)
         	
         	plot(1,1,type='n',
-            	xlab='Total and minor copy number',
+            	xlab=paste('Total and minor copy number', this$chr),
             	ylab='',
             	cex.lab=3,
             	xlim = c(0,this$length),
@@ -97,7 +97,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity",
+		    	xlab = paste("Coverage,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),
@@ -121,7 +121,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
             	main = "",
-		    	xlab = "Allelic imbalance",
+		    	xlab = paste("Allelic imbalance,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),