# HG changeset patch
# User davidecangelosi
# Date 1559126443 14400
# Node ID 465e643e1ea11eaec3a66fb5a00a7b47a736cb7c
# Parent  822dc9b96b3ee827ba59713e02f4a1ff7a84e805
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit 4ddffbbbad77ef6dd023dc3311a820413a8fa3c4

diff -r 822dc9b96b3e -r 465e643e1ea1 pipe-t.R
--- a/pipe-t.R	Wed May 29 06:13:55 2019 -0400
+++ b/pipe-t.R	Wed May 29 06:40:43 2019 -0400
@@ -563,14 +563,15 @@
 xFilter <- filterCategory(unreliable)
 
 cat("\n Categorization completed! ")
-
+minvalue<-min(exprs(xFilter), na.rm = TRUE)
+maxvalue<-max(exprs(xFilter), na.rm = TRUE)
 png(x,    # create PNG for the heat map
   width = 10*300,        # 5 x 300 pixels
   height = 10*300,
   res = 300,            # 300 pixels per inch
   pointsize = 8)
  
-  plotCtBoxes(xFilter, ylim=c(dcCtmin,dcCtmax), cex.lab=3, cex.axis = 2,stratify=NULL, xlab = "Samples", ylab="Ct", mar = c(8,8,8,8), names=as.character(seq(1, ncol(xFilter), 1)))       # smaller font size
+  plotCtBoxes(xFilter, ylim=c(as.numeric(minvalue), as.numeric(maxvalue)), cex.lab=3, cex.axis = 2,stratify=NULL, xlab = "Samples", ylab="Ct", mar = c(8,8,8,8), names=as.character(seq(1, ncol(xFilter), 1)))       # smaller font size
 dev.off()
 
 #write.table(exprs(xFilter), file=x, quote=FALSE,  row.names=TRUE, col.names=TRUE,sep = "\t")