if (FALSE) {
# After running Celltype_Calculate()
cluster_results <- Celltype_Calculate(
seurat_obj = sce,
gene_list = Markers_list,
species = "Human"
)
# Now both of these work:
print(cluster_results$Heatmap_plot)
plot(cluster_results$Heatmap_plot)
}
Run the code above in your browser using DataLab