powered by
geometricArithmetic1(g, deg = NULL)
library(graph) set.seed(123) g <- randomEGraph(as.character(1:9), 0.5) # optional: pre-calculate degree of nodes in g vec.degree <- graph::degree(g) geometricArithmetic1(g, vec.degree)
Run the code above in your browser using DataLab