# NOT RUN {
# HMMER3 result files in this package
hf <- file.path(path.package("micropan"), "extdata",
str_c("GID", 1:3, "_vs_microfam.hmm.txt.xz"))
# We need to uncompress them first...
hmm.files <- tempfile(fileext = rep(".xz", length(hf)))
ok <- file.copy(from = hf, to = hmm.files)
hmm.files <- unlist(lapply(hmm.files, xzuncompress))
# Reading the HMMER3 results, cleaning overlaps...
hmmer.tbl <- NULL
for(i in 1:3){
readHmmer(hmm.files[i]) %>%
hmmerCleanOverlap() %>%
bind_rows(hmmer.tbl) -> hmmer.tbl
}
# The clustering
clst <- dClust(hmmer.tbl)
# ...and cleaning...
ok <- file.remove(hmm.files)
# }
Run the code above in your browser using DataLab