# NOT RUN {
# }
# NOT RUN {
distances <- PDB.1hai.h2o.prot.dists[3, ]
nearby.atoms.idc <- Nearby(distances, set.idc = prot.idc, radius = 3.6)
names.atoms <- PDB.1hai.aoi.clean$elety[prot.idc]
calcNumHydrogenBonds(distances, nearby.atoms.idc, names.atoms,
set.oi.idc = prot.idc)
# [1] 4
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab