Plot UCell/Gene correlations

BimberLab · Mar 12, 2024 · c4dc67c · c4dc67c
1 parent 0d9a845
commit c4dc67c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/singlecell/resources/chunks/CustomUCell.R b/singlecell/resources/chunks/CustomUCell.R
@@ -13,6 +13,9 @@ for (datasetId in names(seuratObjects)) {
   }
 
   seuratObj <- UCell::AddModuleScore_UCell(seuratObj, features = toCalculate, storeRanks = storeRanks, assay = assayName)
+  corData <- RIRA::PlotUcellCorrelation(seuratObj, toCalculate)
+  saveRDS(corData, file = paste0(datasetId, '.ucellcorr.rds'))
+
   for (n in names(toCalculate)) {
     print(Seurat::FeaturePlot(seuratObj, features = paste0(n, '_UCell'), min.cutoff = 'q02', max.cutoff = 'q98'))
   }