attach(hivp)
# Read the starting PDB file to determine atom correspondence
pdbfile <- system.file("examples/hivp.pdb", package="bio3d")
pdb <- read.pdb(pdbfile)
# Plot the network
xy <- plot.cna(net)
# Use identify.cna on the communities
d <- identify.cna(xy, cna=net)
# Right click to end the function...
## d <- identify(xy, summary(net)$members)
Run the code above in your browser using DataLab