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

## ----include=TRUE,results="hide",message=FALSE,warning=FALSE------------------
library(SingleCellMultiModal)
library(MultiAssayExperiment)

## -----------------------------------------------------------------------------
GTseq("mouse_embryo_8_cell", mode = "*", dry.run = TRUE)

## -----------------------------------------------------------------------------
GTseq()

## ----message=FALSE------------------------------------------------------------
gts <- GTseq(dry.run = FALSE)
gts

## -----------------------------------------------------------------------------
colData(gts)

## -----------------------------------------------------------------------------
sampleMap(gts)

## -----------------------------------------------------------------------------
head(assay(gts, "genomic"))[, 1:4]

## -----------------------------------------------------------------------------
head(assay(gts, "transcriptomic"))[, 1:4]

## -----------------------------------------------------------------------------
sessionInfo()