More fixes.

ddiez · Jul 18, 2024 · 02e1699 · 02e1699
1 parent fa30463
commit 02e1699
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pseudobulk.R b/R/pseudobulk.R
@@ -47,7 +47,7 @@ pseudobulk.Seurat <- function(x, split.by, group.by, samples=NULL, genes=NULL, a
   }
 
   xl <- lapply(xl, function(x) {
-    m <- matrix(0, nrow=nrow(x), ncol=length(samples), dimnames=list(rownames(x), rownames(samples)))
+    m <- matrix(0, nrow=nrow(x), ncol=nrow(samples), dimnames=list(rownames(x), rownames(samples)))
 
     if (packageVersion("Seurat") >= "5.0.0")
       tmp <- Seurat::AggregateExpression(x, group.by=group.by, assay=assay)[[assay]]