# NOT RUN {
## Read a PDB file from the RCSB online database
pdb1 <- read.pdb("1etl")
pdb2 <- read.pdb("1hel")
## Concat
new.pdb <- cat.pdb(pdb1, pdb2, pdb1, rechain=TRUE, renumber=TRUE)
## Write to file
write.pdb(new.pdb, file="concat.pdb")
# }
Run the code above in your browser using DataLab