## ---- 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)

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