tian6067

Results 1 issues of tian6067

``` 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)...