library("Gviz")
library("rtracklayer")
gen <- "hg19"
chr <- "chr2"
start <- 38290160
end <- 38313219
if(interactive()){
BROWSER.SESSION="UCSC"
mySession <- browserSession(BROWSER.SESSION)
genome(mySession) <- gen
pattern1 <- "GM12878"
histonalltrack<-HistoneAll_UCSC(gen,chr,start,end,mySession, pattern=pattern1,track.name="Broad Histone")
plotTracks(histonalltrack, from = start, to =end)
} else {
data(histonalltrack)
plotTracks(histonalltrack, from = start, to =end)
}
Run the code above in your browser using DataLab