## we generate the spatial transcriptomics data with lattice neighborhood, i.e. ST platform.
library(Seurat)
data(seu)
seu <- NormalizeData(seu)
# choose spatially variable features
seu <- FindSVGs(seu)
## Just for illustrating the usage of mbicPlot
seu[["RNA"]]@misc[['icMat']] <- data.frame(K=2:5, MBIC=c(105, 101, 99, 108))
mbicPlot(seu)
Run the code above in your browser using DataLab