data(predictedMeth)
data(DMRs)
plotSmoothMeth(object.rel = predictedMeth,
region = DMRs[3] + 200,
groups = colData(predictedMeth)$group,
col=c("magenta", "blue"))
legend("topright",
lty=1,
legend=levels(colData(predictedMeth)$group),
col=c("magenta", "blue"))
Run the code above in your browser using DataLab