# NOT RUN {
library(RCircos);
data(UCSC.HG19.Human.CytoBandIdeogram)
cyto <- UCSC.HG19.Human.CytoBandIdeogram
RCircos.Set.Core.Components(cyto, NULL, 10, 5)
RCircos.Set.Plot.Area()
RCircos.Chromosome.Ideogram.Plot()
data(RCircos.Heatmap.Data)
min.value <- min(as.matrix(RCircos.Heatmap.Data[,5:10]))
max.value <- max(as.matrix(RCircos.Heatmap.Data[,5:10]))
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.Plot.Zoomed.Heatmap(zoom.data, data.col=5,
track.num=2, zoom.pos=zoom.pos,
min.value=min.value, max.value=max.value,
inside.pos=NULL, outside.pos=NULL)
RCircos.Mark.Zoom.Area(zoom.pos, zoom.data, color="red",
track.num=2, inside.pos=NULL, outside.pos=NULL)
RCircos.Label.Zoom.Region(zoom.data, name.col=4,
track.num=3, zoom.pos=zoom.pos, text.size=0.75,
inside.pos=NULL, outside.pos=NULL)
# }
Run the code above in your browser using DataLab