if (FALSE) {
# Run per-cell annotation
result <- Celltype_Calculate_PerCell(
seurat_obj = sce,
gene_list = Markers_list,
species = "Human"
)
# Annotate Seurat object
sce <- Celltype_Annotation_PerCell(
seurat_obj = sce,
SlimR_percell_result = result,
plot_UMAP = TRUE,
annotation_col = "Cell_type_PerCell_SlimR"
)
}
Run the code above in your browser using DataLab