Bug in plot.cna() when cna network contains only one edge

Probably related to scaling of edge widths.

## build simple network
pdb <- read.pdb("4Q21")
modes <- nma(pdb)
cij <- dccm(modes)
net <- cna(cij, cutoff.cij=0.2)
plot(net, pdb) # fine

## Force a new k=2 community network 
tree <- community.tree(net, rescale=TRUE)
memb.k2 <- tree$tree[ tree.net$num.of.comms == 2, ]
net.2 <- network.amendment(net, memb.k2)
plot(net.2, pdb) ## Broken!!

Comments (2)