if (require(FDb.InfiniumMethylation.hg19)) {
data(exampleMethyGenoSet)
## set as MethyLumiM object
methyLumiM <- as(exampleMethyGenoSet, 'MethyLumiM')
## set back as MethyGenoSet object
methyGenoSet <- MethyLumiM2GenoSet(methyLumiM, lib = "FDb.InfiniumMethylation.hg19")
class(methyGenoSet)
}
Run the code above in your browser using DataLab