#Create a network with three edges
m<-matrix(0,3,3)
m[1,2]<-1; m[2,3]<-1; m[3,1]<-1
g<-network(m)
as.matrix.network(g)
gn<-delete.edges(g,2) #Remove an edge
as.matrix.network(gn)
gn<-delete.vertices(g,2) #Remove a vertex
as.matrix.network(gn)
Run the code above in your browser using DataLab