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)