# NOT RUN {
data(methylKit)
# filter out bases with covereage above 500 reads
filtered1=filterByCoverage(methylRawList.obj,lo.count=NULL,lo.perc=NULL,
hi.count=500,hi.perc=NULL)
# filter out bases with cread coverage above 99.9th percentile of coverage
# distribution
filtered2=filterByCoverage(methylRawList.obj,lo.count=NULL,lo.perc=NULL,
hi.count=NULL,hi.perc=99.9)
# filter out bases with covereage above 500 reads and save to database
# "test1_max500.txt.bgz"
# in directory "methylDB", filtered3 now becomes a \code{methylRawDB} object
filtered3=filterByCoverage(methylRawList.obj[[1]], lo.count=NULL,lo.perc=NULL,
hi.count=500, hi.perc=NULL, save.db=TRUE,
suffix="max500", dbdir="methylDB")
# tidy up
rm(filtered3)
unlink("methylDB",recursive=TRUE)
# }
Run the code above in your browser using DataLab