# NOT RUN {
library(RCircos)
data(UCSC.HG19.Human.CytoBandIdeogram)
data(RCircos.Gene.Label.Data)
RCircos.Set.Core.Components(UCSC.HG19.Human.CytoBandIdeogram,
chr.exclude=NULL, tracks.inside=10, tracks.outside=0)
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
highlight.area <- c("chr1", 100000, 200000)
RCircos.Area.Highlight(highlight.area=c("chr1", 100000, 200000),
track.num=c(1:3), side="in")
RCircos.Area.Highlight(highlight.areac("chr10", 100000, 200000),
inside.pos=1.5, outside.pos=2)
# }
Run the code above in your browser using DataLab