powered by
bonchev2(g, dist = NULL, wien = NULL)
library(graph) library(RBGL) set.seed(123) g <- randomGraph(1:8, 1:5, 0.36, weights=FALSE) #calculate Distance Matrix mat.dist <- distanceMatrix(g) bonchev2(g) bonchev2(g,mat.dist, wiener(g))
Run the code above in your browser using DataLab