## Not run:
# # PFAM server connection required - testing excluded
#
# aln <- pfam("piwi")
# aln <- pfam("PF02171")
#
# seq <- get.seq("1rx2_A", outfile = tempfile())
# hmm <- hmmer(seq, type="hmmscan", db="pfam")
# aln <- pfam(hmm$acc[1])
# ## End(Not run)
Run the code above in your browser using DataLab