## 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")
# ## End(Not run)
Run the code above in your browser using DataLab