Mercurial > repos > iuc > limma_voom

diff limma_voom.R @ 16:5d903d528193 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 349e35a66009449851b21e2810bc5aaa58225fca
author iuc
date Sat, 09 Feb 2019 07:35:04 -0500
parents 3133e833b3ce
children 86b3df7db58b
line wrap: on
line diff
--- a/limma_voom.R	Sat Jan 05 05:35:53 2019 -0500
+++ b/limma_voom.R	Sat Feb 09 07:35:04 2019 -0500
@@ -837,9 +837,9 @@
 
     # Write top expressions table
     if (wantTreat) {
-        top <- topTreat(fit, coef=i, number=Inf, sort.by="P")
+        top <- topTreat(fit, coef=i, adjust.method=opt$pAdjOpt, number=Inf, sort.by="P")
     } else{
-        top <- topTable(fit, coef=i, number=Inf, sort.by="P")
+        top <- topTable(fit, coef=i, adjust.method=opt$pAdjOpt, number=Inf, sort.by="P")
     }
     write.table(top, file=topOut[i], row.names=FALSE, sep="\t", quote=FALSE)
     linkName <- paste0(deMethod, "_", con, ".tsv")