## Not run:
# ## Fetch PDBs
# pdb.ids <- c("1YX5_B", "3NOB", "1P3Q_U")
# #outdir <- paste(tempdir(), "/raw_pdbs", sep="")
# outdir = "raw_pdbs"
# raw.files <- get.pdb(pdb.ids, path = outdir)
#
# ## Split PDBs by chain ID and multi-model records
# all.files <- pdbsplit(raw.files, pdb.ids,
# path =paste(outdir, "/split_chain", sep=""))
#
# ## Align and fit
# pdbs <- pdbaln(all.files, fit=TRUE)
#
# ## Convert back to PDB objects
# all.pdbs <- pdbs2pdb(pdbs)
#
# ## Access the first PDB object
# ## all.pdbs[[1]]
#
# ## Return PDB objects consisting of only
# ## atoms in non-gap positions
# all.pdbs <- pdbs2pdb(pdbs, rm.gaps=TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab