testFile <- system.file("extdata", "test.bed", package="cleanUpdTSeq")
testSet <- read.table(testFile, sep="\t", header=TRUE)
peaks <- BED2GRangesSeq(testSet[1:10, ], withSeq=FALSE)
seq = getUpstreamSequence(peaks, upstream=40, genome=Drerio)
Run the code above in your browser using DataLab