Mercurial > repos > davidecangelosi > pipe_t
changeset 23:465e643e1ea1 draft
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit 4ddffbbbad77ef6dd023dc3311a820413a8fa3c4
| author | davidecangelosi |
|---|---|
| date | Wed, 29 May 2019 06:40:43 -0400 |
| parents | 822dc9b96b3e |
| children | 6ae13912ab03 |
| files | pipe-t.R |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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")