# NOT RUN {
library(RCircos)
data(UCSC.HG19.Human.CytoBandIdeogram);
data(RCircos.Link.Data);
data(RCircos.Ribbon.Data);
cyto.info <- UCSC.HG19.Human.CytoBandIdeogram
chr.exclude <- c("chrX", "chrY")
RCircos.Set.Core.Components(
cyto.info=UCSC.HG19.Human.CytoBandIdeogram,
chr.exclude=c("chrX", "chrY"),
tracks.inside=10, tracks.outside=0)
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
RCircos.Link.Plot(RCircos.Link.Data, track.num=4, twist=TRUE)
RCircos.Ribbon.Plot(RCircos.Ribbon.Data,
track.num=4, twist=TRUE, by.chromosome=FALSE)
# }
Run the code above in your browser using DataLab