## Not run:
# library(rtracklayer)
# library(JASPAR2014)
# library(BSgenome.Hsapiens.UCSC.hg19)
# library(BSgenome.Mmusculus.UCSC.mm10)
# data("MA0004.1")
# pfm <- MA0004.1
# pwm <- toPWM(pfm)
# chain <- import.chain("Downloads/hg19ToMm10.over.chain")
# sitepairset <- searchPairBSgenome(pwm, BSgenome.Hsapiens.UCSC.hg19,
# BSgenome.Mmusculus.UCSC.mm10,
# chr1="chr1", chr2="chr1",
# min.score="90%", strand="+",
# chain=chain)
# ## End(Not run)
Run the code above in your browser using DataLab