# 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 =" ")
structure <- PDB.1hai.aoi.clean
BoundWaterEnvironment(distances,
set.oi.idc,
names.atoms,
names.res.atoms,
structure,
radius = 3.6)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab