# get UCSC gene annotation (transcripts level)
txs <- txs()
# get coordinate of all UCSC promoter regions +/-1000bp of TSSs
## Not run:
# txs <- txs(TSS=list(upstream=1000, downstream=1000))
# ## End(Not run)
Run the code above in your browser using DataLab