More tests to fix pseudobulk.

ddiez · Jul 18, 2024 · 16edb44 · 16edb44
1 parent 81276c7
commit 16edb44
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pseudobulk.R b/R/pseudobulk.R
@@ -60,7 +60,7 @@ pseudobulk.Seurat <- function(x, split.by, group.by, samples=NULL, genes=NULL, a
   dge <- lapply(names(xl), function(n) {
     s <- samples
     s$cluster <- n
-    tmp <- edgeR::DGEList(xl[[n]], samples=s)
+    tmp <- edgeR::DGEList(xl[[n]])#, samples=s)
     tmp$genes <- genes
     colnames(tmp) <- unname(colnames(tmp))
     tmp