# 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 )
# ... reading the BLAST result files (textfiles)...
blast.distances <- bDist(file.path(extdata.path,filenames))
# ...and compressing them again...
pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
Run the code above in your browser using DataLab