## ----echo=FALSE, results="hide", message=FALSE--------------------------------
require(knitr)
opts_chunk$set(error=FALSE, message=FALSE, warning=FALSE)

## ----style, echo=FALSE, results='asis'----------------------------------------
BiocStyle::markdown()

## -----------------------------------------------------------------------------
library(TENxPBMCData)
tenx_pbmc4k <- TENxPBMCData(dataset = "pbmc4k")
tenx_pbmc4k

## -----------------------------------------------------------------------------
args(TENxPBMCData)

## -----------------------------------------------------------------------------
counts(tenx_pbmc4k)

## -----------------------------------------------------------------------------
options(DelayedArray.block.size=1e9)

## ----eval = FALSE-------------------------------------------------------------
# lib.sizes <- colSums(counts(tenx_pbmc4k))
# n.exprs <- colSums(counts(tenx_pbmc4k) != 0L)
# ave.exprs <- rowMeans(counts(tenx_pbmc4k))

## ----eval=FALSE---------------------------------------------------------------
# destination <- tempfile()
# saveRDS(tenx_pbmc4k, file = destination)

## -----------------------------------------------------------------------------
tenx_pbmc5k_CITEseq <- TENxPBMCData(dataset = "pbmc5k-CITEseq")

counts(altExp(tenx_pbmc5k_CITEseq))

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