resi.names <- c("LYS", "ALA", "CYS", "HIS")
masses <- aa2mass(resi.names, addter=FALSE)
## Not run:
# ## Fetch atomic masses in a PDB object
# pdb <- read.pdb("3dnd")
# masses <- aa2mass(pdb)
#
# ## or
# masses <- aa2mass(pdb$atom[1:10,"resid"])
#
# ## Dealing with unconventional residues
# #pdb <- read.pdb("1xj0")
#
# #mass.cust <- list("CSX"=122.166)
# #masses <- aa2mass(pdb, mass.custom=mass.cust)
# ## End(Not run)
Run the code above in your browser using DataLab