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