## ----reanalysis.RData, eval=FALSE---------------------------------------------
#  suppressPackageStartupMessages(library("scTensor"))
#  load("reanalysis.RData")

## ----Reanalysis, eval=FALSE---------------------------------------------------
#  if(!require(LRBase.Hsa.eg.db)){
#      BiocManager::install("LRBase.Hsa.eg.db")
#      suppressPackageStartupMessages(library(LRBase.Hsa.eg.db))
#  }
#  # Register the file pass of user's LRBase
#  metadata(sce)$lrbase <- dbfile(LRBase.Hsa.eg.db)
#  # CCI Tensor Decomposition
#  cellCellDecomp(sce, ranks=c(6,5), assayNames="normcounts")
#  # HTML Report
#  cellCellReport(sce, reducedDimNames="TSNE", assayNames="normcounts",
#      title="Cell-cell interaction within Germline_Male, GSE86146",
#      author="Koki Tsuyuzaki", html.open=TRUE,
#      goenrich=TRUE, meshenrich=FALSE, reactomeenrich=FALSE,
#      doenrich=FALSE, ncgenrich=FALSE, dgnenrich=FALSE)

## ----sessionInfo, echo=FALSE--------------------------------------------------
sessionInfo()

