## Not run:
# 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)
# chersX <- findChersOnSmoothed(smoothX, probeAnno=exProbeAnno,
# thresholds=0.45, allChr="9", distCutOff=600, cellType="human")
# exportCherList(chersX, file="chers.gff")
# ## End(Not run)
Run the code above in your browser using DataLab