Add validity check

drjingma · Jan 5, 2022 · 542dfca · 542dfca
1 parent 32a2a88
commit 542dfca
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/BMN.onesample.wrapper.R b/R/BMN.onesample.wrapper.R
@@ -39,8 +39,9 @@ BMN.onesample.wrapper <-
                     lower.tail = F)
 
     ## Multiple testing
+    W = sqrt(W)
+    diffNetwork <- NULL
     if (multiTest){
-      W = sqrt(W)
       tau <- find.tau(W, alpha.multi)
       diffNetwork <- W*(W>tau) #may not be symmetric sometimes
     }