minor fix

easystats · Sep 4, 2024 · 66249e5 · 66249e5
1 parent e192d76
commit 66249e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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