# NOT RUN {
data(methylKit)
getCorrelation(methylBase.obj,method="pearson",plot=FALSE)
# create methylBaseDB
methylBaseDB.obj <- unite(methylRawList.obj,save.db=TRUE,dbdir="methylDB")
getCorrelation(methylBaseDB.obj,method="pearson",plot=FALSE,nrow=10000)
# remove Database again
rm(methylBaseDB.obj)
unlink("methylDB",recursive=TRUE)
# }
Run the code above in your browser using DataLab