library("Gviz")
gen <- "hg19"
chr <- "chr2"
start <- 38290160
end <- 38303219
if(interactive()) {
BROWSER.SESSION="UCSC"
mySession <- browserSession(BROWSER.SESSION)
genome(mySession) <- gen
histoneonetrack<-HistoneOne(gen,chr,start,end,mySession)
plotTracks(histoneonetrack, from = start, to =end)
} else {
data(histoneonetrack)
plotTracks(histoneonetrack, from = start, to =end)
}
Run the code above in your browser using DataLab