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