deleteIntermediaries: Delete less-important intermediaries of a supply network
In MiloMonnier/supplynet: Supply network design and robustness assessment tools

Description Usage Arguments Details Value See Also Examples

This function delete intermediaries from a supply network if they are considered as no more important. Deletion can be based on 2 criterias:

bypassing: if the density of links between the suppliers and the customers of an intermediairy node, i.e. its 'supply transitivity', reach a certain level, it is removed. Allows to favor the emergence of short supply chains into a rewiring process (default: Inf).
degree: if the degree of a node falls and is equal or lower to this threshold, it is removed. Allows to favor the emergence of hubs (default: Inf).

1	deleteIntermediaries(g, tr = Inf, deg = Inf, cuts = FALSE)

`g`	an igraph object; the supply network.
`tr`	numeric; miinimal supply transitivity threshold below which intermediary is deleted (default: Inf).
`deg`	numeric; degree under which intermediary is deleted (default: Inf).
`cuts`	boolean; if FALSE (default), the removal of cut-vertices identified with `articulation_points` is forbidden.

For safety reasons, only 1 intermediary is deleted Indeed, the deletion of 1 can have cascading consequences on the local indices of the other nodes, and conditions would not be respected anymore.

an igraph object with 1 less intermediary.

supplyTransitivity

library(igraph)
g = make_tree(5)
## Make a transitive closure: all intermediaries are bypassed
m = floydAlgo(g)
m[m>1] = 1 # To adjacency matrix
g = graph_from_adjacency_matrix(m)
plot(g)
# Vertex 2 is bypassed, so deleted
g2 = deleteIntermediaries(g)
plot(g2)