exDir <- system.file("exData",package="Ringo")
load(file.path(exDir,"exampleProbeAnno.rda"))
load(file.path(exDir,"exampleX.rda"))
smoothX <- computeRunningMedians(exampleX, probeAnno=exProbeAnno,
modColumn = "Cy5", allChr = "9", winHalfSize = 400)
apply(exprs(smoothX), 2, upperBoundNull)
Run the code above in your browser using DataLab