The cell type vector is generated from the following code
data(celltype_toy)
celltype = as.factor(sample(c(1,2,3),5,replace = TRUE))