# 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)
# }
Run the code above in your browser using DataLab