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

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

## ----Load, message=FALSE------------------------------------------------------
library(MouseThymusAgeing)

## -----------------------------------------------------------------------------
head(SMARTseqMetadata, n = 5)

## -----------------------------------------------------------------------------
head(DropletMetadata, n = 5)

## ----message=FALSE------------------------------------------------------------
smart.sce <- MouseSMARTseqData(samples="day2")
smart.sce

## ----message=FALSE------------------------------------------------------------
head(counts(smart.sce)[, 1:10])

## -----------------------------------------------------------------------------
head(sizeFactors((smart.sce)))

## ----message=FALSE------------------------------------------------------------
library(scuttle)
smart.sce <- logNormCounts(smart.sce)

## ----message=FALSE------------------------------------------------------------
head(colData(smart.sce))

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