From 81276c7a3c1090edd58a112f825c20da4e89c008 Mon Sep 17 00:00:00 2001 From: Diego Diez Date: Thu, 18 Jul 2024 16:12:44 +0900 Subject: [PATCH] Trying to fix again pseudobulk. --- R/pseudobulk.R | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/R/pseudobulk.R b/R/pseudobulk.R index 997fe2d..4e07805 100644 --- a/R/pseudobulk.R +++ b/R/pseudobulk.R @@ -37,14 +37,14 @@ pseudobulk.Seurat <- function(x, split.by, group.by, samples=NULL, genes=NULL, a }) names(xl) <- group_levels - if (is.null(samples)) { - samples <- x[[]][[group.by]] - if (!is.factor(samples)) - samples <- factor(samples) - - samples <- levels(samples) - samples <- data.frame(row.names=samples) - } + # if (is.null(samples)) { + # samples <- x[[]][[group.by]] + # if (!is.factor(samples)) + # samples <- factor(samples) + + # samples <- levels(samples) + # samples <- data.frame(row.names=samples) + # } xl <- lapply(xl, function(x) { if (packageVersion("Seurat") >= "5.0.0")