if(require('minfiData')) {
path <- system.file("extdata/5723646052", package="minfiData")
barcodes <- getBarcodes(path = path)
methylumiset.raw <- getMethyLumiSet(path = path, barcodes = barcodes[1])
}
Run the code above in your browser using DataLab