edit in ruv

SydneyBioX · Feb 20, 2023 · 682f68c · 682f68c
1 parent 02765b0
commit 682f68c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/scMerge2_utilis.R b/R/scMerge2_utilis.R
@@ -95,8 +95,9 @@ pseudoRUVIII <- function(Y, Y_pseudo, M, ctl, k = NULL, eta = NULL,
     if (normalised) {
 
         ac <- alpha[, ctl, drop = FALSE]
+        adjusted_means <- colMeans(Y)
         Y <- DelayedArray::DelayedArray(Y)
-        adjusted_means <- DelayedArray::colMeans(Y)
+