library("Gviz")
gen <- "hg19"
chr <- "chr15"
start <- 75011669
end <- 75019876
interestfeatures <- rbind(c("75017782","75017835","bad"),c("75013755","75013844","good"))
interestcolor <- list("bad"="red", "good"="green")
if(interactive()){
interesttransENSMBLtrack<-interestTranscript_ENSEMBL(gen,chr,start,end,interestfeatures,interestcolor,showId=TRUE)
plotTracks(interesttransENSMBLtrack, from=start, to=end)
} else {
data(interesttransENSMBLtrack)
plotTracks(interesttransENSMBLtrack, from=start, to=end)
}
Run the code above in your browser using DataLab