From cc2e78e054b4d5b0d89dd2866c6194e89467b939 Mon Sep 17 00:00:00 2001 From: Jesper Madsen Date: Mon, 25 Sep 2023 11:18:42 +0200 Subject: [PATCH] Fix typo --- R/label_dead.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/label_dead.R b/R/label_dead.R index 76f1928..e31310d 100644 --- a/R/label_dead.R +++ b/R/label_dead.R @@ -156,7 +156,7 @@ label_dead <- function(counts, metrics, qc.labels, cor.threshold = NULL, train = if (verbose) { message("Running feature selection and dimensional reduction") } # Normalize and log transform counts counts <- counts[ , colnames(counts) %in% metrics$barcode] - counts <- counts[, match(metrics$barcode, colnames(counts)),] + counts <- counts[, match(metrics$barcode, colnames(counts))] nonzero <- counts[ Matrix::rowSums(counts) > 0,] sf <- 10000 / Matrix::colSums(nonzero) norm_transform <- Matrix::t(Matrix::t(nonzero) * sf)