# 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)
# }
Run the code above in your browser using DataLab