library(Seurat)
library(Matrix)
library(colorspace)
file_path_seurat_object = "PS_seurat_object_190725.Rds"
message("(1/5) loading seurat object ...")
SO <- readRDS(file = file_path_seurat_object)
getwd()
