# NOT RUN {
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)
# }
Run the code above in your browser using DataLab