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