if (FALSE) {
# You would typically use something else as database
query_file <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small.fasta")
db <- query_file
# Search for exact full-length matches with default parameters, with file as output
vs_search_exact(fastx_input = query_file,
database = db,
userout = "delete_me.txt")
# Read results, and give column names
result.tbl <- read.table("delete_me.txt",
sep = "\t",
header = FALSE,
col.names = c("query", "target", "id", "alnlen",
"mism", "opens", "qlo", "qhi",
"tlo", "thi", "evalue", "bits"))
}
Run the code above in your browser using DataLab