data(rrbs)
rrbs.clust.unlim <- clusterSites(object = rrbs,
groups = colData(rrbs)$group,
perc.samples = 4/5,
min.sites = 20, max.dist = 100)
covBoxplots(rrbs.clust.unlim)
# 90% quantile of coverage is 39x
quantile(totalReads(rrbs.clust.unlim)[totalReads(rrbs.clust.unlim)>0],
0.9)
rrbs.clust.lim <- limitCov(rrbs.clust.unlim, maxCov = 39)
covBoxplots(rrbs.clust.lim)
Run the code above in your browser using DataLab