# load RRBS data, subset to save time, find CpG clusters and smooth methylation data:
data(rrbs)
rrbs.small <- rrbs[1:1000,]
rrbs.clust.unlim <- clusterSites(object = rrbs.small,
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)
betaResults <- betaRegression(formula = ~group, link = "probit",
object = predictedMeth, type="BR")
Run the code above in your browser using DataLab