change length of keep_rows in batchCorrectionAssay (ComBat)

tnaake · Jun 21, 2024 · 4db6aff · 4db6aff
1 parent 75205a0
commit 4db6aff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tab_values.R b/R/tab_values.R
@@ -1474,7 +1474,7 @@ batchCorrectionAssay <- function(se,
 
             ## require at least 2 observations per feature and level
             batch_u <- unique(batch)
-            keep_rows <- rep(TRUE, length(batch))
+            keep_rows <- rep(TRUE, nrow(se))
             for (i in batch_u) {
                 sum_nas <- apply(a_b[, batch == i, drop = FALSE], 1, 
                     FUN = function(row) sum(!is.na(row)))