data(rrbs)
data(predictedMeth)
region <- GRanges(seqnames="chr1",
ranges=IRanges(start = 875200,
end = 875500))
plotMeth(object.raw = rrbs[,6],
object.rel = predictedMeth[,6],
region = region)
Run the code above in your browser using DataLab