library("Gviz")
gen <- "hg19"
chrom <- "chr2"
start <- 38290160
end <- 38303219
if(interactive()){
    coreilVariant<-CoreillCNV_UCSC(gen,chrom,start,end)
    plotTracks(coreilVariant, from = start, to =end)
} else {
     data(coreilVarianttrack)
    plotTracks(coreilVariant, from = start, to =end)
}
Run the code above in your browser using DataLab