if(interactive()){
data("exampleData", package="GenomeGraphs")
minbase <- 180292097
maxbase <- 180492096
ideog <- new("Ideogram", chromosome = "3")
expres <- new("GenericArray", intensity = intensity, probeStart = exonProbePos,
dp = DisplayPars(color="darkred", type="point"))
gdPlot(list(ideog, expres), minBase = minbase, maxBase =maxbase)
}
Run the code above in your browser using DataLab