library("Gviz")
chr <- "chr1"
start <- 707612
end <- 722151
gen="hg19"
extdata <- system.file("extdata", package="coMET",mustWork=TRUE)
bedFilePath <- file.path(extdata, "RoadMap/regions_prom_E063.bed")
if(interactive()){
DNaseI_RoadMapSingle <- DNaseI_RoadMap(gen,chr,start, end, bedFilePath, featureDisplay='promotor' )
plotTracks(DNaseI_RoadMapSingle, from = start, to = end)
} else {
data(DNaseI_RoadMapSingle)
plotTracks(DNaseI_RoadMapSingle, from = start, to = end)
}
Run the code above in your browser using DataLab