if (interactive()) {
data("exampleData", package="GenomeGraphs")
ga <- new("GenomeAxis")
bt <- new("BaseTrack", base = yeastCons1[,1], value = yeastCons1[,2],
dp = DisplayPars(color = "darkblue"))
gdPlot(list(ga, bt))
}
Run the code above in your browser using DataLab