Update p_direction.R

easystats · Sep 6, 2024 · 436315d · 436315d
1 parent 87e84ef
commit 436315d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/p_direction.R b/R/p_direction.R
@@ -298,10 +298,9 @@ p_direction.distribution <- function(x,
 
   for (i in seq_along(pd)) {
     low <- distributional::cdf(x[[i]], q = null)
+    high <- 1 - low
     if (.is_discrete_dist(x[[i]])) {
-      high <- 1 - (low + stats::density(x[[i]], at = null))
-    } else {
-      high <- 1 - low
+      low <- low - stats::density(x[[i]], at = null)
     }
     pd[i] <- max(low, high)
   }