From e273fc3ec1870c478cc5a84e45418941f88dda03 Mon Sep 17 00:00:00 2001 From: Madeleine Duran Date: Thu, 29 Aug 2024 14:15:50 -0700 Subject: [PATCH] pass gene_agg_fun and cell_agg_fun into aggregated_expr_data --- R/utils.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/utils.R b/R/utils.R index c4e4194..a4ed0c0 100755 --- a/R/utils.R +++ b/R/utils.R @@ -64,7 +64,8 @@ get_distances <- function(ccs, method="euclidean", matrix=T) { #' @param group_cells_by #' @noRd #' -aggregated_expr_data <- function(cds, group_cells_by = "cell_type_broad", gene_group_df=NULL){ +aggregated_expr_data <- function(cds, group_cells_by = "cell_type", gene_group_df=NULL, + gene_agg_fun = "sum", cell_agg_fun = "mean"){ cds = cds[, !is.na(colData(cds)$timepoint)] cds = cds[, !is.na(colData(cds)[[group_cells_by]])]