# Using HMMER3 result files in the micropan package
# We need to uncompress them first...
extdata.path <- file.path(path.package("micropan"),"extdata")
filenames <- c("GID1_vs_Pfam-A.hmm.txt",
"GID2_vs_Pfam-A.hmm.txt",
"GID3_vs_Pfam-A.hmm.txt")
pth <- lapply( file.path( extdata.path, paste( filenames, ".xz", sep="" ) ), xzuncompress )
# ...reading the HMMER3 results...
hmmer.table <- NULL
for(i in 1:3){
htab <- readHmmer(file.path(extdata.path,filenames[i]))
htab <- hmmerCleanOverlap(htab) # Cleaning the results by removing overlapping hits
hmmer.table <- rbind(hmmer.table,htab)
}
# ...and compressing the result files again...
pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
# Finally, the clustering
clustering.domains <- dClust(hmmer.table)
Run the code above in your browser using DataLab