data(rrbs)
rrbs.reduced <- filterBySharedRegions(object = rrbs, perc.samples = 1)
# Or filter CpG sites where at least 50% of cancer and 50% of normal samples have coverage:
rrbs.reduced <- filterBySharedRegions(object=rrbs, groups = colData(rrbs)$group,
perc.samples = 0.5)
Run the code above in your browser using DataLab