[Patchwork-commits] r192 - pkg/TAPS/R

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

Author: sebastian_d
Date: 2013-09-24 15:05:47 +0200 (Tue, 24 Sep 2013)
New Revision: 192

Modified:
   pkg/TAPS/R/TAPS.r
Log:
Change to compare groups

Modified: pkg/TAPS/R/TAPS.r
===================================================================
--- pkg/TAPS/R/TAPS.r	2013-09-24 12:51:34 UTC (rev 191)
+++ pkg/TAPS/R/TAPS.r	2013-09-24 13:05:47 UTC (rev 192)
@@ -1601,6 +1601,9 @@
     p_cutoff <- 0.05
     freq_cutoff <- 0
     
+    difcolor <- color
+    color <- colorRampPalette(c("#FFFFFF",color),space="rgb")(4)[2]
+    
     # Generate frequency plots            
     pile1 <- pileup(regs1); pile1$Percent <- 100*pile1$Count / n1
     pile2 <- pileup(regs2); pile2$Percent <- 100*pile2$Count / n2
@@ -1661,7 +1664,7 @@
     data$e <- data$e+data$End
     data <- data[order(data$percent,decreasing=T),]
     
-    difcolor <- colorRampPalette(c("#FFFFFF",color),space="rgb")(4)[2]
+    #difcolor <- colorRampPalette(c("#FFFFFF",color),space="rgb")(4)[2]
     
     rect( 
         xleft=data$s, xright=data$e,