nActors <- 5
network <- create_network(matrix(0, nActors, nActors))
add_random_ties_to_network(network, probability = 0.5)
add_random_ties_to_network(network, probability = 1)
# reset network to an empty network
network <- create_network(matrix(0, nActors, nActors))
add_ring_lattice_to_network(network, nReciprocalTies = 2)
## Not run:
# add_ring_lattice_to_network(network, nReciprocalTies = 0) # throws an error message
# ## End(Not run)
Run the code above in your browser using DataLab