Update doubletFinder.R

fix '$' to '@'
lzmcboy · Dec 24, 2023 · bfd1365 · bfd1365
1 parent b2b4a3e
commit bfd1365
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/doubletFinder.R b/R/doubletFinder.R
@@ -13,7 +13,7 @@ doubletFinder <- function(seu, PCs, pN = 0.25, pK, nExp, reuse.pANN = FALSE, sct
   if (reuse.pANN == FALSE) {
     ## Make merged real-artifical data
     real.cells <- rownames(seu@meta.data)
-    data <- seu@assays$RNA$counts[, real.cells]
+    data <- seu@assays$RNA@counts[, real.cells]
     n_real.cells <- length(real.cells)
     n_doublets <- round(n_real.cells/(1 - pN) - n_real.cells)
     print(paste("Creating",n_doublets,"artificial doublets...",sep=" "))