More fixes.

ddiez · Jul 18, 2024 · c133d6b · c133d6b
1 parent de39643
commit c133d6b
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/pseudobulk.R b/R/pseudobulk.R
@@ -59,10 +59,11 @@ 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$genes <- genes
+    #s <- samples
+    #s$cluster <- n
+    tmp <- edgeR::DGEList(xl[[n]], samples=samples, genes=genes)
+    tmp$samples$cluster <- n
+    #tmp$genes <- genes
     #colnames(tmp) <- unname(colnames(tmp))
     tmp
   })