Mercurial > repos > iuc > volcanoplot

changeset 2:d1d39c72b755 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/volcanoplot commit cc2f721e801b6e113a8813982cc3c2c31ae83e89
author iuc
date Sun, 30 Dec 2018 08:03:58 -0500
parents 7b7303fa20e3
children 6d532d760950
files volcanoplot.R
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/volcanoplot.R	Sat Dec 29 13:21:24 2018 -0500
+++ b/volcanoplot.R	Sun Dec 30 08:03:58 2018 -0500
@@ -52,11 +52,11 @@
     tolabel <- filter(results, labels %in% labelfile[, 1])
 } else if (is.null(opt$top_num)) {
     # label all significant genes
-    tolabel <- filter(results, fdr<opt$signif_thresh)
+    tolabel <- filter(results, sig != label_notsig)
 } else if (opt$top_num > 0) {
     # label only top significant genes
-    tolabel <- filter(results, fdr<opt$signif_thresh) %>% 
-    top_n(n=opt$top_num, Pvalue)
+    tolabel <- filter(results, sig != label_notsig) %>%
+    top_n(n=-opt$top_num, Pvalue)
 } else if (opt$top_num == 0) {
     # no labels
     tolabel <- NULL