From 66249e58a03b5bf75f23d62b0184de0b24dc2d8a Mon Sep 17 00:00:00 2001 From: Daniel Date: Wed, 4 Sep 2024 09:00:25 +0200 Subject: [PATCH] minor fix --- R/plot.p_significance.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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