Update dcZscore.R

Bug fix in fdr
DavisLaboratory · Jul 5, 2024 · 70f183f · 70f183f
1 parent 8958d61
commit 70f183f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dcZscore.R b/R/dcZscore.R
@@ -79,7 +79,7 @@ dcZscore <-
   fdr = fdr[, -(1:2)]
   fdr = unique(fdr)
   fdr$fdr = stats::p.adjust(fdr$value, method = 'fdr')
-  fdr = fdr[fdr$fdr < fdrthresh, -1]
+  fdr = fdr[fdr$fdr <= fdrthresh, -1]
   colnames(fdr) = c('from', 'to', 'fdr')
 
   #annotate df