#files <- get.pdb(c("4q21","5p21"), URLonly=TRUE)
files <- get.pdb(c("4q21","5p21"), path=tempdir(), overwrite=TRUE)
pdbs <- pdbaln(files)
xyz <- pdbfit(pdbs)
# Superpose again this time outputing PDBs
#xyz <- pdbaln( files, outpath="fitted" )
Run the code above in your browser using DataLab