fix ruvg

SydneyBioX · Apr 12, 2024 · 33c4389 · 33c4389
1 parent 3f23952
commit 33c4389
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/scRUVg.R b/R/scRUVg.R
@@ -76,11 +76,10 @@ scRUVg <- function(Y, ctl, k, Z = 1, eta = NULL, include.intercept = TRUE,
     }
 
     W = alpha = NULL
-
     W = fullW[, seq_len(k), drop = FALSE]
     alpha = solve(t(W) %*% W) %*% t(W) %*% Y0
-
-    newY = Y - W %*% alpha
+    Y <- DelayedArray::DelayedArray(Y)
+    newY = Y - DelayedArray::DelayedArray(W %*% alpha)
 
     return(list(newY = newY, W = W, alpha = alpha))
 }