exDir <- system.file("exData",package="Ringo")
load(file.path(exDir,"exampleProbeAnno.rda"))
load(file.path(exDir,"exampleX.rda"))
smoothX <- computeRunningMedians(exampleX, probeAnno=exProbeAnno,
winHalfSize = 400)
combX <- combine(exampleX, smoothX)
if (interactive()){
grid.newpage()
plot(combX, exProbeAnno, chrom="9", xlim=c(34318000,34321000),
ylim=c(-2,4), gff=exGFF)
}
Run the code above in your browser using DataLab