contrasts_oi = c("'P-(A+B+C+D+T)/5','A-(P+B+C+D+T)/5','B-(A+P+C+D+T)/5','C-(A+B+P+D+T)/5','D-(A+B+C+P+T)/5','T-(A+B+C+D+P)/5'")
contrast_tbl = tibble(contrast = 
                        c("P-(A+B+C+D+T)/5","A-(P+B+C+D+T)/5", "B-(A+P+C+D+T)/5","C-(A+B+P+D+T)/5","D-(A+B+C+P+T)/5","T-(A+B+C+D+P)/5"), 
                      group = c("P","A","B","C","D","T"))
senders_oi = SummarizedExperiment::colData(sce)[,celltype_id] %>% unique()
receivers_oi = SummarizedExperiment::colData(sce)[,celltype_id] %>% unique()
sce = sce[, SummarizedExperiment::colData(sce)[,celltype_id] %in% 
            c(senders_oi, receivers_oi)
]
conditions_keep =c("P","A","B","C","D","T")
sce = sce[, SummarizedExperiment::colData(sce)[,group_id] %in% 
                             conditions_keep
             ]
             
DE_info = get_DE_info_sampleAgnostic(
  sce = sce, 
  group_id = group_id, celltype_id = celltype_id, 
  contrasts_oi = contrasts_oi, 
  expressed_df = frq_list$expressed_df, 
  min_cells = min_cells, 
  contrast_tbl = contrast_tbl)