## Not run:
# if(require(minfiData)) {
#
# baseDir <- system.file("extdata", package = "minfiData")
# RGSet <- read.450k(file.path(baseDir, "5723646052",
# c("5723646052_R02C02", "5723646052_R04C01")))
#
# }
# ## End(Not run)
Run the code above in your browser using DataLab