## ----setup, echo = FALSE, results = "hide"---------------------------------
options(signif = 3, digits = 3)
knitr::opts_chunk$set(tidy = FALSE, cache = TRUE, autodep = TRUE, fig.height = 5.5,
                      message = FALSE, error = FALSE, warning = TRUE)
set.seed(0xdada)

## --------------------------------------------------------------------------
library(CAGEr)
data(FANTOM5humanSamples)
head(FANTOM5humanSamples)
nrow(FANTOM5humanSamples)

## --------------------------------------------------------------------------
astrocyteSamples <- FANTOM5humanSamples[grep("Astrocyte", 
				FANTOM5humanSamples[,"description"]),]
astrocyteSamples

## --------------------------------------------------------------------------
data(FANTOM5mouseSamples)
head(FANTOM5mouseSamples)
nrow(FANTOM5mouseSamples)

## --------------------------------------------------------------------------
astrocyteSamples[,"sample"]

## --------------------------------------------------------------------------
library(FANTOM3and4CAGE)
data(FANTOMhumanSamples)
head(FANTOMhumanSamples)
data(FANTOMmouseSamples)
head(FANTOMmouseSamples)

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