diff --git a/DESCRIPTION b/DESCRIPTION index b6e9383..df82de2 100644 --- 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 diff --git a/R/binomial_enrichment.R b/R/binomial_enrichment.R index 12607fe..2ba05b7 100644 --- 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),