@@ -188,7 +188,7 @@ setMethod("celda_C",

         verbose = TRUE) {

         # Convert to sparse matrix

-        x <- as(x, "dgCMatrix")

+        x <- methods::as(x, "dgCMatrix")

         ls <- list()

         ls[[useAssay]] <- x

@@ -222,7 +222,7 @@ setMethod("celda_CG",

         verbose = TRUE) {

         # Convert to sparse matrix

-        x <- as(x, "dgCMatrix")

+        x <- methods::as(x, "dgCMatrix")

         ls <- list()

         ls[[useAssay]] <- x

@@ -172,7 +172,7 @@ setMethod("celda_G",

         verbose = TRUE) {

         # Convert to sparse matrix

-        x <- as(x, "dgCMatrix")

+        x <- methods::as(x, "dgCMatrix")

         ls <- list()

         ls[[useAssay]] <- x

@@ -313,10 +313,7 @@

   rm(p)

   # Pre-compute lgamma values

-  lgbeta <- lgamma((seq(0, max(.colSums(

-    counts, nrow(counts),

-    ncol(counts)

-  )))) + beta)

+  lgbeta <- lgamma((seq(0, max(colSums(counts)))) + beta)

   lggamma <- lgamma(seq(0, nrow(counts) + L) + gamma)

   lgdelta <- c(NA, lgamma(seq(nrow(counts) + L) * delta))