Loading R/pseudobulk.R +2 −2 Original line number Original line Diff line number Diff line Loading @@ -92,7 +92,7 @@ pseudobulk_deseq2 <- function(dge_formula, meta_data, counts_df, verbose=TRUE, ## setup design ## setup design design <- meta_data design <- meta_data design[[contrast_var]] <- factor(ifelse(design[[contrast_var]] == foreground_id, design[[contrast_var]] <- factor(ifelse(design[[contrast_var]] == foreground_id, paste0('cluster_', foreground_id), paste0('cluster', foreground_id), 'background')) 'background')) ## background clusters should not be treated as independent observations ## background clusters should not be treated as independent observations Loading Loading
R/pseudobulk.R +2 −2 Original line number Original line Diff line number Diff line Loading @@ -92,7 +92,7 @@ pseudobulk_deseq2 <- function(dge_formula, meta_data, counts_df, verbose=TRUE, ## setup design ## setup design design <- meta_data design <- meta_data design[[contrast_var]] <- factor(ifelse(design[[contrast_var]] == foreground_id, design[[contrast_var]] <- factor(ifelse(design[[contrast_var]] == foreground_id, paste0('cluster_', foreground_id), paste0('cluster', foreground_id), 'background')) 'background')) ## background clusters should not be treated as independent observations ## background clusters should not be treated as independent observations Loading
