# NOT RUN {
# This function is using BLAST applications. BLAST+ should be installed.
# Local nucleotide database should be created
# Local database of target sequences of Chlamydia pneumoniae was created
# in temporal directory previously (see make_blast_DB () function)
path <- tempdir()
dir.create (path)
#set probes for local BLAST
probes <- c ("catctctatttcggtagcagctcc", "aaagtcatagaaaagcctgtagtcgc",
"ccttcttctcgaactctgaagtacact", "aaaaaaaaaaaaaaaaa", "acacacacacacaac")
blast.raw <- blast_local(probe.var = probes, probe.id.var = NULL,
fasta.way = paste0 (path, "/blast.fasta"),
blastn.way = "D:/Blast/blast-2.11.0+/bin/blastn.exe",
db.way = paste0 (path, "/DB"),
out.way = paste0 (path, "/blast.out"),
mc.cores=1, add.query.info = TRUE, temp.db = paste0 (path, "/temp.db"),
delete.files = TRUE, eval = 1, maxtargetseqs = 200)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab