diff --git a/R/plot.p_significance.R b/R/plot.p_significance.R
index f42ec6b29..40b357c05 100644
--- a/R/plot.p_significance.R
+++ b/R/plot.p_significance.R
@@ -143,8 +143,8 @@ data_plot.p_significance <- function(x,
   }
 
   # find out the probability mass larger or lower than the ROPE (outside)
-  p_mass_ht_rope <- sum(out$y[out$x > threshold[2]]) > (sum(out$y) / 2)
-  p_mass_lt_rope <- sum(out$y[out$x < threshold[1]]) > (sum(out$y) / 2)
+  p_mass_ht_rope <- sum(out$y[out$x > threshold[2]])
+  p_mass_lt_rope <- sum(out$y[out$x < threshold[1]])
 
   # find out whether probability mass "above" ROPE is larger than the probability
   # mass that is on the left (negative) side of the ROPE