From 4913a08884f74ed14a2a88930d3731e226eafb9e Mon Sep 17 00:00:00 2001
From: Jonathan Griffiths <7976085+jonathangriffiths@users.noreply.github.com>
Date: Tue, 23 Jul 2024 13:20:18 +0100
Subject: [PATCH] correct typo

---
 R/emptyDrops.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/emptyDrops.R b/R/emptyDrops.R
index 84e8ec2..65cedee 100644
--- 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) {