library("Gviz")
gen <- "hg19"
chr <- "chr2"
start <- 37949607
end <- 37965207
if(interactive()) {
gwastrack <-GWASTrack(gen,chrom,start,end)
plotTracks(gwastrack, from = start, to =end)
} else {
data(GWASTrack)
plotTracks(gwastrack, from = start, to =end)
}
Run the code above in your browser using DataLab