This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(Seurat) | |
# Find specific markers for each cell type | |
# Find specific markers for each cell type | |
celltypes <- unique(expression_seurat_subset@ident) # list of cell types (unique ident labels of Seurat object) | |
obj <- expression_seurat_subset # Seurat object | |
specific_markers <- NULL | |
# First we do all pairwise comparisons and retain any markers that |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(Seurat) | |
# Find specific markers for each cell type | |
celltypes <- # list of cell types (unique ident labels of Seurat object) | |
obj <- # Seurat object | |
specific_markers <- NULL | |
# First we do all pairwise comparisons and retain any markers that | |
# are even somewhat higher in the cell type of interest |