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

## ----eval = FALSE-------------------------------------------------------------
#   hub <- ExperimentHub::ExperimentHub()
#   a <- list()
#      a[1] <- hub[["EH1434"]]
#      a[2] <- hub[["EH1435"]]
#      a[3] <- hub[["EH1436"]]
#      a[4] <- hub[["EH1437"]]
#      a[5] <- hub[["EH1438"]]
#      a[6] <- hub[["EH1439"]]
#      a[7] <- hub[["EH1440"]]
#      a[8] <- hub[["EH1441"]]
#      a[9] <- hub[["EH1442"]]
#      a[10] <- hub[["EH1443"]]
#      a[11] <- hub[["EH1444"]]
#      a[12] <- hub[["EH1445"]]
#      a[13] <- hub[["EH1446"]]
#      a[14] <- hub[["EH1447"]]
#      a[15] <- hub[["EH1448"]]
#      a[16] <- hub[["EH1449"]]
#      a[17] <- hub[["EH1450"]]
#      a[18] <- hub[["EH1451"]]