data(exampleMethyGenoSet)
## get sample type information
sampleType <- colData(exampleMethyGenoSet)$SampleType
## Do differential test
allResult <- detectDMR.slideWin(exampleMethyGenoSet, sampleType=sampleType, testMethod='ttest')
## Identify the DMR (Differentially Methylated Region) by setting proper parameters.
## Here we just use default ones
allDMRInfo <- identifySigDMR(allResult)
sigDMRInfo <- allDMRInfo$sigDMRInfo
class(sigDMRInfo)
## Annotate significant DMR info
if (require(TxDb.Hsapiens.UCSC.hg19.knownGene)) {
sigDMRInfo.ann <- annotateDMRInfo(sigDMRInfo, 'TxDb.Hsapiens.UCSC.hg19.knownGene')
}
Run the code above in your browser using DataLab