# NOT RUN {
data(methylKit)
methylDiffDB.obj <- calculateDiffMeth(methylBase.obj,save.db=TRUE,dbdir="methylDB")
library(GenomicRanges)
my.gr=as(methylDiffDB.obj,"GRanges")
# remove Database again
rm(methylDiffDB.obj)
unlink("methylDB",recursive=TRUE)
# }
Run the code above in your browser using DataLab