library(mbstructure)
data(MBconnectome)

out <- generate.graph(newrdat, vdf.right)
g.uw <- out$g
g.w <- out$g.w
vdf <- out$vdf

compareARI(g.uw, g.w, vdf)
## Loading required package: irlba