library("Gviz")
gen2 <- "hg19"
chrom2 <- "chr2"
start2 <- 38290160
end2 <- 38303219
if(interactive()) {
gadtrack<-GAD_UCSC(gen=gen2 ,chr=chrom2 ,start=start2 ,end=end2)
plotTracks(gadtrack, from = start2, to =end2)
} else {
data(gadtrack)
plotTracks(gadtrack, from = start2, to =end2)
}
Run the code above in your browser using DataLab