powered by
rbind
seqbind(..., blank = "-")
seqaln
read.fasta
read.pdb
write.fasta
## 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