diff --git a/.DS_Store b/.DS_Store
index 115bc2a..69e04d9 100644
Binary files a/.DS_Store and b/.DS_Store differ
diff --git a/R/doublets.test.R b/R/doublets.test.R
index ab04b31..4849b06 100644
--- 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
index 87e0e18..4aefd57 100644
--- 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