Compute the flows incoming at each destination location
Examples
positions <- matrix(rnorm(10 * 2), ncol = 2)
distances <- as.matrix(dist(positions))
production <- rep(1, 10)
attractiveness <- c(2, rep(1, 9))
model <- static_blvim(distances, production, 1.5, 1, attractiveness)
destination_flow(model)
#> [1] 1.7789154 0.7708814 0.9171723 0.8558294 0.8140866 0.9944436 0.8861233
#> [8] 0.9889946 0.9886106 1.0049428