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 simply using fdr.adjusted p.value cutoff 0.05 to define DMR
## "status" column is required for getContinuousRegion function.
values(allResult)$status <- values(allResult)$p.adjust < 0.05
dmrInfo <- getContinuousRegion(allResult)
Run the code above in your browser using DataLab