| ICM.EM_structure {PRECAST} | R Documentation | 
ICM-EM algorithm implementation with organized paramters
Description
Efficient data integration as well as spatial clustering for multiple spatial transcriptomics data
Usage
  ICM.EM_structure(XList,  K, AdjList, q=15,parameterList=NULL)
Arguments
| XList | an M-length list consisting of multiple matrices with class  | 
| K | a positive integer allowing scalar or vector, specify the number of clusters in model fitting. | 
| AdjList | an M-length list of sparse matrices with class  | 
| q | a positive integer, specify the number of latent features to be extracted, default as 15. | 
| parameterList | Other arguments in PRECAST model, it can be set by model_set. | 
Details
Nothing
Value
ICM.EM_structure returns a list with class "SeqK_PRECAST_Object" with the number of components equal to the length of K, where each component includes the model fitting results for one number of cluster and is a list consisting of following components:
| cluster | an M-length list that includes the inferred class labels for each data sample. | 
| hZ | an M-length list that includes the batch corrected low-dimensional embeddings for each data sample. | 
| hV | an M-length list that includes the estimate the ICAR component for each sample. | 
| Rf | an M-length list that includes the posterior probability of domain clusters for each sample. | 
| beta | an M-length vector that includes the estimated smoothing parameters for each sample. | 
| Mu | mean vectors of mixtures components. | 
| Sigma | covariance matrix of mixtures components. | 
| W | estimated loading matrix | 
| Lam | estimated variance of errors in probabilistic PCA model | 
| loglik | pseudo observed log-likelihood. | 
Note
nothing
Author(s)
Wei Liu
References
See Also
None
Examples
  ## we generate the spatial transcriptomics data with lattice neighborhood, i.e. ST platform.
  library(Matrix)
  q <- 10; K <- 4
  data(PRECASTObj)
  posList <- lapply(PRECASTObj@seulist, function(x) cbind(x$row, x$col))
  AdjList <- lapply(posList, getAdj_reg, platform='ST')
  XList <- lapply(PRECASTObj@seulist, function(x) t(x[['RNA']]@data))
  XList <- lapply(XList, scale, scale=FALSE)
  parList <- model_set(maxIter=4)
  resList <- ICM.EM_structure(XList,  AdjList = AdjList, 
                   q=q, K=K, parameterList=parList)