## ----eval=FALSE------------------------------------------------------------
#  if (!requireNamespace("BiocManager", quietly=TRUE))
#    install.packages("BiocManager")
#  BiocManager::version()

## ----eval=FALSE------------------------------------------------------------
#  BiocManager::install()

## ----eval=FALSE------------------------------------------------------------
#  BiocManager::valid()

## ----eval=FALSE------------------------------------------------------------
#  BiocManager::install()

## ----eval=FALSE------------------------------------------------------------
#  BiocManager::install("singleCellTK")

## ----eval=FALSE------------------------------------------------------------
#  library(singleCellTK)
#  singleCellTK()

## ----eval=FALSE------------------------------------------------------------
#  library(singleCellTK)
#  singleCellTK()

## ---- message=FALSE--------------------------------------------------------
library(singleCellTK)
data("mouseBrainSubsetSCE")
counts_mat <- assay(mouseBrainSubsetSCE, "counts")
sample_annot <- colData(mouseBrainSubsetSCE)
row_annot <- rowData(mouseBrainSubsetSCE)
newSCE <- createSCE(assayFile = counts_mat, annotFile = sample_annot, 
                    featureFile = row_annot, assayName = "counts",
                    inputDataFrames = TRUE, createLogCounts = TRUE)

## ----eval=FALSE------------------------------------------------------------
#  singleCellTK(newSCE)

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