# Initialize NW and activate vertices
nw <- network.initialize(20)
# Activate all vertices, then deactive half at time 5
activate.vertices(nw, onset = 1, terminus = 10)
deactivate.vertices(nw, onset = 5, terminus = 10, v = 1:10)
# Output all information for vertices at time 1 and time 5
node.active(nw, at = 1, out = "all")
node.active(nw, at = 5, out = "all")
Run the code above in your browser using DataLab