Comment 0 for bug 1149658

The summary says it all. Graph-file attached.

> library(igraph)
> g<-read.graph("chl_1.graphml", format="graphml")
> E(g)$weight<-E(g)$Weight
> com<-multilevel.community(g)
> modularity(com)
[1] -Inf
Warning message:
In max(x$modularity) : no non-missing arguments to max; returning -Inf