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)
}
Run the code above in your browser using DataLab