## Not run:
# ## Save separate PDB files for each chain of a local or on-line file
# pdbsplit( get.pdb("2KIN", URLonly=TRUE) )
#
#
# ## Split several PDBs by chain ID and multi-model records
# raw.files <- get.pdb( c("1YX5", "3NOB") , URLonly=TRUE)
# chain.files <- pdbsplit(raw.files, path=tempdir(), multi=TRUE)
# basename(chain.files)
#
#
# ## Output only desired pdbID_chainID combinations
# ## for the last entry (1f9j), fetch all chains
# ids <- c("1YX5_A", "3NOB_B", "1F9J")
# raw.files <- get.pdb( ids , URLonly=TRUE)
# chain.files <- pdbsplit(raw.files, ids, path=tempdir())
# basename(chain.files)
# ## End(Not run)
Run the code above in your browser using DataLab