## Generate some random data
Data <- matrix(abs(rnorm(3000, sd=2)),ncol=10,nrow=300)
## Initializing SincellObject named list
mySincellObject <- sc_InitializingSincellObject(Data)
## To access the gene expression matrix
expressionmatrix<-mySincellObject[["expressionmatrix"]]
## Distance
mySincellObject<-sc_distanceObj(mySincellObject)
mySincellObject<-sc_distanceObj(mySincellObject, method="MI",bins=c(-Inf,0,2,4,6,8,Inf))
mySincellObject<-sc_distanceObj(mySincellObject, method="spearman")
## To access the cell-to-cell distance matrix
cell2celldist<-mySincellObject[["cell2celldist"]]Run the code above in your browser using DataLab