# 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)
ideo <- RCircos.Get.Plot.Ideogram()
rows <- which(ideo$BandColor=="red"
ideo$BandColor[rows] <- "green"
RCircos.Reset.Plot.Ideogram(ideo)
params <- RCircos.Get.Plot.Parameters()
params$base.per.unit <- 6000
RCircos.Reset.Plot.Paramters(params)
positions <- RCircos.Get.Plot.Positions();
positions[1, 3] <- 0;
RCircos.Reset.Plot.Positions(positions);
# }
Run the code above in your browser using DataLab