# NOT RUN {
#Draw a random directed network with 25 nodes
g<-network(25)
#Draw a random undirected network with density 0.1
g<-network(25, directed=FALSE, density=0.1)
#Draw a random bipartite network with 4 actors and 6 events and density 0.1
g<-network(10, bipartite=4, density=0.1)
# }
Run the code above in your browser using DataLab