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