## Not run: 
# #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 all-atom PDBs to disc
# #xyz <- pdbfit( pdbs, outpath="fitted" )
# ## End(Not run)
Run the code above in your browser using DataLab