# NOT RUN {
# }
# NOT RUN {
fasta.file <- system.file("extdata", "test_infestans.fasta", package = "effectR")
ORF <- seqinr::read.fasta(fasta.file)
REGEX <- regex.search(ORF, motif="RxLR")
candidate.rxlr <- hmm.search(original.seq = fasta.file, regex.seq = REGEX,
alignment.file=NULL, save.alignment=T)
# To save the alignment:
library(seqinr)
write.fasta(sequences = getSequence(candidate.rxlr$Alignment),
names = getName(candidate.rxlr$Alignment),
file.out = "Alin_infestans.fasta", nbchar = 10000)
# To use an alignment file
ALIN <- system.file("extdata", "Alin_infestans.fasta", package = "effectR")
candidate.rxlr <- hmm.search(original.seq = fasta.file, regex.seq = REGEX,
alignment.file = ALIN)
# }
Run the code above in your browser using DataLab