interestTranscript_ENSEMBL(gen, chr, start, end,interestfeatures,interestcolor,showId = FALSE)
http://genome-euro.ucsc.edu/cgi-bin/hgTrackUi?hgsid=202839739_2hYQ1BAOuBMAR620GjrtdrFAy6dn&c=chr6&g=ensGene
ISCA_UCSC
, GWAScatalog_UCSC
, knownGenes_UCSC
,
genesName_ENSEMBL
, GeneReviews_UCSC
, GAD_UCSC
, genes_ENSEMBL
, xenorefGenes_UCSC
,
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