## Not run:
# if(require('IlluminaHumanMethylation450k.db')) {
# barcodes <- c('6005486014_R04C02',
# '6005486023_R05C01')
# lumi450k <- methylumIDAT(barcodes,idatPath=system.file('extdata/idat',package='methylumi')) # no normalization done
# sampleNames(lumi450k) <- c('TCGA1','TCGA2')
# show(lumi450k)
# }
# ## End(Not run)
Run the code above in your browser using DataLab