Update utility_scripts.R

biobakery · Aug 1, 2024 · 3d05ca7 · 3d05ca7
1 parent 3d58f49
commit 3d05ca7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/utility_scripts.R b/R/utility_scripts.R
@@ -79,6 +79,7 @@ CLRnorm = function(features, zero_threshold) {
 # From metagenomeSeq #
 ######################
 
+# The zero threshold isn't correct here yet, but we're probably removing these
 calcNormFactors <- function(x, p = cumNormStat(x)) {
   xx <- x
   xx[xx == 0] <- NA
@@ -182,6 +183,7 @@ CSSnorm = function(features, zero_threshold) {
 # From edgeR #
 ##############
 
+# The zero threshold isn't correct here yet, but we're probably removing these
 .calcFactorQuantile <- function (data, lib.size, p=0.75)
   #	Generalized version of upper-quartile normalization
   #	Mark Robinson and Gordon Smyth