# NOT RUN {
library(RCircos);
data(UCSC.HG19.Human.CytoBandIdeogram);
data(RCircos.Polygon.Data);
RCircos.Set.Core.Components(
cyto.info=UCSC.HG19.Human.CytoBandIdeogram,
chr.exclude=NULL, tracks.inside=10, tracks.outside=5)
RCircos.Set.Plot.Area();
RCircos.Chromosome.Ideogram.Plot()
load("RCircos/data/RCircos.Histogram.Data.RData")
area.data <- RCircos.Histogram.Data;
adj.value <- runif(nrow(area.data), 0, 0.4)
area.data["DataT"] <- 0.5 + adj.value
area.data["DataB"] <- 0.5 - adj.value
RCircos.Area.Plot(area.data, data.col=4, plot.type="mountain",
inside.pos=1.2, outside.pos=1.5, is.sorted=FALSE)
RCircos.Area.Plot(area.data, data.col=4, plot.type="curtain",
inside.pos=0.9, outside.pos=1.1, is.sorted=FALSE)
RCircos.Area.Plot(area.data, data.col=c(5,6), plot.type="band",
inside.pos=0.4, outside.pos=0.7, is.sorted=FALSE)
# }
Run the code above in your browser using DataLab