# Using BLAST result files in this package...
# We need to uncompress them first:
extdata.path <- file.path(path.package("micropan"),"extdata")
filenames <- c("GID1_vs_GID1.txt",
"GID1_vs_GID2.txt",
"GID1_vs_GID3.txt",
"GID2_vs_GID1.txt",
"GID2_vs_GID2.txt",
"GID2_vs_GID3.txt",
"GID3_vs_GID1.txt",
"GID3_vs_GID2.txt",
"GID3_vs_GID3.txt")
pth <- lapply( file.path( extdata.path, paste( filenames, ".xz", sep="" ) ), xzuncompress )
# ...using \code{bDist} to find distances...
blast.distances <- bDist(file.path(extdata.path,filenames))
# ...and compressing the BLAST result files again...
pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
Run the code above in your browser using DataLab