diff --git a/R/pseudobulk.R b/R/pseudobulk.R
index e0cbb03..a83d2a6 100644
--- 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
   })