if (require(minfiData) & require(GenomicRanges)){
range <- GRanges(seqnames=Rle("chrY"),
ranges = IRanges(3000000, end=12300000))
set <- prepareMethylationSet(MsetEx[1:100, ], pData(MsetEx))
set
filteredset <- filterSet(set, range)
filteredset
}
Run the code above in your browser using DataLab