diff --git a/R/get_reaction_consistencies.R b/R/get_reaction_consistencies.R index e1c80bc..22533dc 100644 --- a/R/get_reaction_consistencies.R +++ b/R/get_reaction_consistencies.R @@ -16,7 +16,8 @@ get_reaction_consistencies <- function(compass_reaction_scores, ..., min_consist compass_reaction_scores %>% drop_inconsistent_reactions(min_consistency = min_consistency) %>% drop_constant_reactions(min_range = min_range) %>% - (function(x) { -log2(x) })() %>% - sweep(2, colMeans(.)) + (function(x) { -log2(1+x) })() %>% + #sweep(2, colMeans(.)) + sweep(1, apply(.,1,min)) reaction_consistencies }