# NOT RUN {
library(RCircos)
data(UCSC.HG19.Human.CytoBandIdeogram);
RCircos.Set.Core.Components(
cyto.info=UCSC.HG19.Human.CytoBandIdeogram,
chr.exclude=c("chrX", "chrY"),
tracks.inside=10, tracks.outside=0)
zoom.info <- c("chr1", 10000, 50000)
zoom.pos <- RCircos.Set.Zoom.Plot.Positions(zoom.info)
# }
Run the code above in your browser using DataLab