library("Gviz")
gen <- "hg38"
chr <- "chr2"
start <- 100000
end <- 200000
if(interactive()){
DupTrack <-segmentalDups_UCSC(gen,chr,start,end)
plotTracks(DupTrack, from = start, to = end)
} else {
data(DupTrack)
plotTracks(DupTrack, from = start, to = end)
}
Run the code above in your browser using DataLab