# NOT RUN {
if (!requireNamespace("igraph", quietly = TRUE)) {
message('Need igraph installed to run this example')
} else {
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)
detach(hivp)
}
# }
Run the code above in your browser using DataLab