## 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$hit.tbl$acc[1])
# 
# # Or much more simply for RCSB PDB entries:
# acc <- pdb.pfam("1rx2_A", compact=FALSE)$pfamAcc
# aln <- pfam(acc)
# ## End(Not run)
Run the code above in your browser using DataLab