powered by
geometricArithmetic3(g, dist = NULL)
library(graph) set.seed(123) g <- randomEGraph(as.character(1:9), 0.5) # optional: pre-calculate distance matrix mat.dist <- distanceMatrix(g) geometricArithmetic3(g, mat.dist)
Run the code above in your browser using DataLab