# NOT RUN {
library(RCircos)
data(UCSC.HG19.Human.CytoBandIdeogram)
zoomedIdeo <- RCircos.ZoomIn.Chromosome(
ideogram=UCSC.HG19.Human.CytoBandIdeogram,
chromosome="chr17", from=10000, to=20000,
zoom.in=1000)
# }
Run the code above in your browser using DataLab