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