# NOT RUN {
# }
# NOT RUN {
distances <- PDB.1hai.h2o.prot.dists[3, ]
set.oi.idc <- prot.idc
names.atoms <- PDB.1hai.aoi.clean$elety[prot.idc]
names.res.atoms <- paste(PDB.1hai.aoi.clean$resid[prot.idc], names.atoms, sep =" ")
BoundWaterEnvironment.interact(distances,
set.oi.idc,
names.atoms,
names.res.atoms,
radius = 3.6)
# $adn
# [1] 9
#
# $ahp.sum
# [1] 2.001
#
# $ahp.mu
# [1] 0.2223
#
# $ahp.sd
# [1] 0.2229
#
# $hbonds
# [1] 4
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab