# NOT RUN {
# Using BLAST result files in this package...
prefix <- c("GID1_vs_GID1_",
"GID2_vs_GID1_",
"GID3_vs_GID1_",
"GID2_vs_GID2_",
"GID3_vs_GID2_",
"GID3_vs_GID3_")
bf <- file.path(path.package("micropan"), "extdata", str_c(prefix, ".txt.xz"))
# We need to uncompress them first...
blast.files <- tempfile(pattern = prefix, fileext = ".txt.xz")
ok <- file.copy(from = bf, to = blast.files)
blast.files <- unlist(lapply(blast.files, xzuncompress))
# Reading self-alignment files, then the other files
self.tbl <- readBlastSelf(blast.files)
pair.tbl <- readBlastPair(blast.files)
# ...and cleaning...
ok <- file.remove(blast.files)
# See also examples for bDist
# }
Run the code above in your browser using DataLab