# NOT RUN {
data(methylKit)
methylBaseDB.obj <- unite(methylRawList.obj,save.db=TRUE,dbdir="methylDB")
#The path to the database is returned
getDBPath(methylBaseDB.obj)
# remove Database again
rm(methylBaseDB.obj)
unlink("methylDB",recursive=TRUE)
# }
Run the code above in your browser using DataLab