if (FALSE) {
# After running Celltype_Calculate_PerCell and Celltype_Annotation_PerCell
dotplot <- Celltype_Verification_PerCell(
seurat_obj = sce,
SlimR_percell_result = result,
gene_number = 5,
annotation_col = "Cell_type_PerCell_SlimR"
)
print(dotplot)
}
Run the code above in your browser using DataLab