adds direction to binomial stats

MoseleyBioinformaticsLab · May 10, 2024 · 3c55221 · 3c55221
1 parent 41e24bc
commit 3c55221
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: categoryCompare2
-Version: 0.100.20
+Version: 0.100.21
 Title: Meta-Analysis of High-Throughput Experiments Using Feature
         Annotations
 Author: Robert M. Flight <[email protected]>

diff --git a/R/binomial_enrichment.R b/R/binomial_enrichment.R
@@ -78,6 +78,11 @@ binomial_feature_enrichment = function(binomial_features,
   binom_stats$num_positive = num_positive
   binom_stats$num_negative = num_negative
 
+  direction = rep(0, length(num_positive))
+  direction[num_positive > num_negative] = 1
+  direction[num_positive < num_negative] = -1
+  binom_stats$direction = direction
+
   out_stats = new("statistical_results",
                    statistic_data = binom_stats,
                    annotation_id = names(binomial_features@annotation@annotation_features),