# NOT RUN {
library(RCircos)
data(RCircos.Gene.Label.Data)
data(UCSC.HG19.Human.CytoBandIdeogram)
cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;
RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL,
tracks.inside=10, tracks.outside=0)
gene.data <- RCircos.Gene.Label.Data
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
RCircos.Gene.Connector.Plot(gene.data, track.num=1, side="in")
RCircos.Gene.Connector.Plot(gene.data, side="out",
inside.pos=2.5, outside.pos=3)
# }
Run the code above in your browser using DataLab