north_west_corner {gridOT} | R Documentation |
Calculate the transport plan obtained by the north-west-corner rule.
north_west_corner(wx, wy, threshold = 1e-15)
wx |
first weight vector. |
wy |
second weight vector. |
threshold |
small value that indicates when a value is considered to be zero. |
a matrix representing the transport plan obtained by the north-west-corner rule.
set.seed(1)
wx <- rep(1/5, 5)
wy <- runif(6)
wy <- wy / sum(wy)
north_west_corner(wx, wy)