# NOT RUN {
data(methylKit)
cpg.obj=readFeatureFlank(system.file("extdata",
"cpgi.hg18.bed.txt", package = "methylKit"),
feature.flank.name=c("CpGi","shores"))
ann=annotateWithFeatureFlank(methylDiff.obj,cpg.obj$CpGi,cpg.obj$shores,
feature.name="CpGi",flank.name="Shores")
getTargetAnnotationStats(ann,percentage=TRUE,precedence=TRUE)
# }
Run the code above in your browser using DataLab