library(mbstructure) data(MBconnectome) out <- generate.graph(newrdat, vdf.right) g <- out$g vdf <- out$vdf plotConnections(g, vdf)