correct typo

MarioniLab · Jul 23, 2024 · 4913a08 · 4913a08
1 parent 220515a
commit 4913a08
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/emptyDrops.R b/R/emptyDrops.R
@@ -351,8 +351,8 @@ testEmptyDrops <- function(m, lower=100, niters=10000, test.ambient=FALSE, ignor
 .estimate_alpha <- function(mat, prop, totals, interval=c(0.01, 10000))
 # Efficiently finds the MLE for the overdispersion parameter of a Dirichlet-multinomial distribution.
 {
-    i <- nzwhich(x, arr.ind=TRUE)[,1]
-    x <- nzvals(x)
+    i <- nzwhich(mat, arr.ind=TRUE)[,1]
+    x <- nzvals(mat)
 
     per.prop <- prop[i] 
     LOGLIK <- function(alpha) {