## ----setup, include = FALSE---------------------------------------------- knitr::opts_chunk$set(cache = FALSE, warning = FALSE, message = FALSE, cache.lazy = FALSE,collapse = TRUE, comment = "#>" ) ## ----eval=FALSE---------------------------------------------------------- # if (memory.limit()>8000){ # library(ExperimentHub) # # hub <- ExperimentHub() # # myfiles <- query(hub, "FlowSorted.CordBloodCombined.450k") # # FlowSorted.CordBloodCombined.450k <- myfiles[[1]] # # FlowSorted.CordBloodCombined.450k # } ## ----eval=FALSE---------------------------------------------------------- # head(IDOLOptimizedCpGsCordBlood)