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