# 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=5)
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
locations <- RCircos.Track.Positions(side="in", track.num=1);
out.pos <- locations[1];
in.pos <- locations[2];
subtracks <- 5;
RCircos.Track.Outline(inside.pos=locations[2],
outside.pos=locations[1], num.layers=5,
chrom.list=NULL, track.colors=NULL)
# }
Run the code above in your browser using DataLab