# NOT RUN {
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, no.sim = 10, seed = 1234)
# }
Run the code above in your browser using DataLab