## Not run:
# ## Read a PRMTOP file
# prmtop <- read.prmtop("prot_solvated.prmtop")
# print(prmtop)
#
# ## Read a Amber CRD file
# crds <- read.crd("prot_solvated.inpcrd")
#
# ## Atom selection
# ca.inds <- atom.select(prmtop, "calpha")
#
# ## Convert to PDB format
# pdb <- as.pdb(prmtop, crds, inds=ca.inds)
# ## End(Not run)
Run the code above in your browser using DataLab