update runs and doublets

emdelponte · Oct 12, 2023 · 2a7c5df · 2a7c5df
1 parent ffee07b
commit 2a7c5df
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 6 deletions.
diff --git a/.DS_Store b/.DS_Store
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 <- (2 * pnorm(abs(ZDb), lower.tail = FALSE))
+  pvalue <- (pnorm(abs(ZDb), lower.tail = FALSE))
 
   # result is "aggregation or clustering" if the Z-score is greater than 1.64, otherwise it is "randomness"
   result <- ifelse(abs(ZDb) >= 1.64,
@@ -47,7 +47,4 @@ doublets.test <- function(x) {
 
   # Return the results as a list
   return(list(Db = Db, EDb = EDb, ZDb = ZDb, pvalue = pvalue, result = result))
-
-
-
 }
diff --git a/R/oruns.test.R b/R/oruns.test.R
@@ -32,11 +32,11 @@ oruns.test <- function(x) {
   Z = (U - EU) / sU
 
   # pvalue is the p-value of the Z-score
-  pvalue <- (2 * pnorm(abs(Z), lower.tail = FALSE))
+  pvalue <- (pnorm(abs(Z), lower.tail = FALSE))
 
   # result is "clustering" if the Z-score is less than 1.64, otherwise it is "randomness"
   result <- ifelse(Z < 1.64,
-                   c("clustering"),
+                   c("aggregation or clustering"),
                    c("randomness"))
 
   # Return the results as a list