## Not run:
# data(dmrcatedata)
# myMs <- logit2(myBetas)
# myMs.noSNPs <- rmSNPandCH(myMs, dist=2, mafcut=0.05)
# patient <- factor(sub("-.*", "", colnames(myMs)))
# type <- factor(sub(".*-", "", colnames(myMs)))
# design <- model.matrix(~patient + type)
# myannotation <- cpg.annotate("array", myMs.noSNPs, analysis.type="differential",
# design=design, coef=39)
# dmrcoutput <- dmrcate(myannotation, lambda=1000, C=2)
# results.ranges <- extractRanges(dmrcoutput, genome = "hg19")
# ## End(Not run)
Run the code above in your browser using DataLab