updates

emdelponte · Oct 15, 2023 · 97fbf3c · 97fbf3c
1 parent 95f0863
commit 97fbf3c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/doublets.test.R b/R/doublets.test.R
@@ -38,7 +38,7 @@ doublets.test <- function(x) {
   ZDb = (Db - EDb) / SDb
 
   # pvalue is the p-value of the Z-score
-  pvalue <- (pnorm(abs(ZDb), lower.tail = FALSE))
+  pvalue <- (1- pnorm(abs(ZDb), lower.tail = TRUE))
 
   # result is "aggregation or clustering" if the Z-score is greater than 1.64, otherwise it is "randomness"
   result <- ifelse(abs(ZDb) >= 1.64,

diff --git a/R/oruns.test.R b/R/oruns.test.R
@@ -32,10 +32,10 @@ oruns.test <- function(x) {
   Z = (U - EU) / sU
 
   # pvalue is the p-value of the Z-score
-  pvalue <- (pnorm(abs(Z), lower.tail = FALSE))
+  pvalue <- (1 - pnorm(abs(Z), lower.tail = TRUE))
 
   # result is "clustering" if the Z-score is less than 1.64, otherwise it is "randomness"
-  result <- ifelse(Z < 1.64,
+  result <- ifelse(Z < -1.64,
                    c("aggregation or clustering"),
                    c("randomness"))