library(REDseq)
patternFile = system.file("extdata", "examplePattern.fa", package="REDseq")
example.dict0 <- readDNAStringSet(patternFile, "fasta")
library(BSgenome.Celegans.UCSC.ce2)
REDseq:::searchPattern(dict0 = example.dict0, BSgenomeName=Celegans, outfile=tempfile())
Run the code above in your browser using DataLab