## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  echo = TRUE,
  collapse = TRUE,
  comment = ">>"
)

## ----eval = FALSE-------------------------------------------------------------
# library(ExperimentHub)
# hub <- ExperimentHub()
# 
# query(hub, "BeadSorted.Saliva.EPIC")
# 
# BeadSorted.Saliva.EPIC <- hub[["EH4539"]]
# BeadSorted.Saliva.EPIC

## ----eval = FALSE-------------------------------------------------------------
# library(ExperimentHub)
# hub <- ExperimentHub()
# 
# query(hub, "BeadSorted.Saliva.EPIC.compTable")
# 
# BeadSorted.Saliva.EPIC.compTable <- hub[["EH4540"]]
# head(BeadSorted.Saliva.EPIC.compTable)

## ----eval = FALSE-------------------------------------------------------------
# head(BeadSorted.Saliva.EPIC.estimates)