g <- barabasi.game(100, m=1)
g <- delete.edges(g, E(g)[ 100 %--% 1 ])
g2 <- barabasi.game(100, m=5)
g2 <- delete.edges(g2, E(g2)[ 100 %--% 1])
vertex.connectivity(g, 100, 1)
vertex.connectivity(g2, 100, 1)
vertex.disjoint.paths(g2, 100, 1)
g <- erdos.renyi.game(50, 5/50)
g <- as.directed(g)
g <- induced.subgraph(g, subcomponent(g, 1))
graph.cohesion(g)
Run the code above in your browser using DataLab