# NOT RUN {
library(RCircos);
data(UCSC.HG19.Human.CytoBandIdeogram)
data(RCircos.Link.Data)
data(RCircos.Scatter.Data)
RCircos.Set.Core.Components(UCSC.HG19.Human.CytoBandIdeogram,
chr.exclude=c("chrX", "chrY"),
tracks.inside=10, tracks.outside=0 )
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
RCircos.Scatter.Plot(RCircos.Scatter.Data, data.col=5,
track.num=1, side="in", by.fold=1)
RCircos.Link.Plot(RCircos.Link.Data, track.num=3)
RCircos.Clear.Track(track.num=1, side="in", to.center=FALSE)
RCircos.Clear.Track(track.num=5, side="in", to.center=TRUE)
# }
Run the code above in your browser using DataLab