## Not run: 
# aa.1 <- pdbseq( read.pdb("1bg2") )
# aa.2 <- pdbseq( read.pdb("3dc4") )
# aa.3 <- pdbseq( read.pdb("1mkj") )
# 
# aln <- seqaln( seqbind(aa.1,aa.2) )
# 
# seq2aln(aa.3, aln)
# ## End(Not run)
Run the code above in your browser using DataLab