# 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()
data(RCircos.Heatmap.Data)
zoom.data <- RCircos.Get.Zoom.Data(RCircos.Heatmap.Data,
name.col=4, genomic.columns=3,
target.gene="SP5", neighbor.genes=5)
zoom.range <- RCircos.Get.Zoom.Range(zoom.data, 3)
zoom.pos <- RCircos.Set.Zoom.Plot.Positions(zoom.range,
total.genes=11, area.length=0.25, gene.width=NULL)
RCircos.Zoom.Area.Outline(zoom.pos=NULL, inside.pos=2.5,
outside.pos=3, num.layers=5, fill.col="white")
# }
Run the code above in your browser using DataLab