library("Gviz")
gen <- "hg19"
chr <- "chr15"
start <- 75011669
end <- 75019876
interestfeatures <- rbind(c("75011883","75013394","bad"),c("75013932","75014410","good"))
interestcolor <- list("bad"="red", "good"="green")
if(interactive()) {
interestgenesENSMBLtrack<-interestGenes_ENSEMBL(gen,chr,start,end,interestfeatures,interestcolor,showId=TRUE)
plotTracks(interestgenesENSMBLtrack, from = start, to =end)
} else {
data(interestgenesENSMBLtrack)
plotTracks(interestgenesENSMBLtrack, from = start, to =end)
}
Run the code above in your browser using DataLab