if (FALSE) {
set.seed(1234)
My_graph <- igraph::sample_gnp(n=50, p=0.05)
GraphVertices <- V(My_graph)
Influence.Ranks <- sirir(graph = My_graph, vertices = GraphVertices,
beta = 0.5, gamma = 1, ncores = "default", no.sim = 10, seed = 1234)
}
Run the code above in your browser using DataLab