[Patchwork-commits] r100 - pkg/patchwork/R

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

Author: sebastian_d
Date: 2012-02-16 17:36:07 +0100 (Thu, 16 Feb 2012)
New Revision: 100

Modified:
   pkg/patchwork/R/karyotype_chroms.r
   pkg/patchwork/R/karyotype_chromsCN.r
Log:
add segment colors to AI of karyotype_chroms and karyotype_chromsCN

Modified: pkg/patchwork/R/karyotype_chroms.r
===================================================================
--- pkg/patchwork/R/karyotype_chroms.r	2012-02-16 15:32:40 UTC (rev 99)
+++ pkg/patchwork/R/karyotype_chroms.r	2012-02-16 16:36:07 UTC (rev 100)
@@ -117,6 +117,12 @@
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
         	mtext(text=paste("Allelic imbalance,",this$chr),side=1,line=3.5,cex=2,las=1)
+
+
+            segments(x0=start[ix],x1=end[ix],
+                y0=ai[ix],y1=ai[ix],                
+                col=col,
+                lwd=4,)
     	dev.off()
     	}
 	}
\ No newline at end of file

Modified: pkg/patchwork/R/karyotype_chromsCN.r
===================================================================
--- pkg/patchwork/R/karyotype_chromsCN.r	2012-02-16 15:32:40 UTC (rev 99)
+++ pkg/patchwork/R/karyotype_chromsCN.r	2012-02-16 16:36:07 UTC (rev 100)
@@ -139,6 +139,11 @@
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
         	mtext(text=paste("Allelic imbalance,",this$chr),side=1,line=3.5,cex=2,las=1)
+
+            segments(x0=start[ix],x1=end[ix],
+                y0=ai[ix],y1=ai[ix],                
+                col=col,
+                lwd=4,)
         dev.off()
     	}
 	}
\ No newline at end of file