Output allocation
output_allocation(X, d)
X
transaction matrix
d
final demand vector
set.seed(200100) X <- matrix(rnorm(100), nrow = 10) d <- rnorm(10) output_allocation(X,d)