library("Gviz")
gen <- "hg19"
chr <- "chr2"
start <- 32290160
end <- 33303219
if(interactive()){
transENSMBLtrack<-transcript_ENSEMBL(gen,chr,start,end,showId=TRUE)
plotTracks(transENSMBLtrack, from=start, to=end)
} else {
data(transENSMBLtrack)
plotTracks(transENSMBLtrack, from=start, to=end)
}
Run the code above in your browser using DataLab