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