data(rrbs)
rrbs.clust.unlim <- clusterSites(object = rrbs,
groups = colData(rrbs)$group,
perc.samples = 4/5,
min.sites = 20, max.dist = 100)
ind.cov <- totalReads(rrbs.clust.unlim) > 0
quant <- quantile(totalReads(rrbs.clust.unlim)[ind.cov], 0.9)
rrbs.clust.lim <- limitCov(rrbs.clust.unlim, maxCov = quant)
# with a small subset to save calculation time:
rrbs.part <- rrbs.clust.lim[1:100,]
predictedMeth <- predictMeth(object=rrbs.part)
Run the code above in your browser using DataLab