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