library("Gviz")
gen <- "hg38"
chr <- "chr1"
start <- 100000
end <- 5000000
featureDisplay <- "Enhancer"
if(interactive()){
otherRegulatoryRegionsTrackSingle<-otherRegulatoryRegions_ENSEMBL(gen,chr,start,end,featureDisplay)
plotTracks(otherRegulatoryRegionsTrackSingle, from = start, to = end)
} else {
data(otherRegulatoryRegionsTrackSingle)
plotTracks(otherRegulatoryRegionsTrackSingle, from = start, to = end)
}
########
library("Gviz")
gen <- "hg38"
chr <- "chr1"
start <- 100000
end <- 5000000
featureDisplay <- "all"
if(interactive()){
otherRegulatoryRegionsTrackAll<-otherRegulatoryRegions_ENSEMBL(gen,chr,start,end,featureDisplay)
plotTracks(otherRegulatoryRegionsTrackAll, from = start, to = end)
} else {
data(otherRegulatoryRegionsTrackAll)
plotTracks(otherRegulatoryRegionsTrackAll, from = start, to = end)
}
Run the code above in your browser using DataLab