# NOT RUN {
## Read two pdbs
a.pdb <- read.pdb("1bg2")
b.pdb <- read.pdb("1goj")
seqs <- seqbind(aa321(a.pdb$atom[a.pdb$calpha,"resid"]),
aa321(b.pdb$atom[b.pdb$calpha,"resid"]))
# seqaln(seqs)
# }
Run the code above in your browser using DataLab