lengthenShortEdge: Turn a short supply chain into a long supply chain
In MiloMonnier/supplynet: Supply network design and robustness assessment tools

Description Usage Arguments Value Examples

Choose a random short supply-chain edge going directly from producers to distributors, delete it, and replace it by a path of two edges length passing through an intermediary chosen randomly.

1	lengthenShortEdge(g)

`g`	an igraph object.

an igraph object.

## Turn all short SC into long SC
library(igraph)
g = generateSupplyNet(E=200)
while (length(E(g)[E(g)$type=="PD"]))
  g = lengthenShortEdge(g)
ecount(g)