powered by
Output allocation
output_allocation(X, d)
transaction matrix
final demand vector
# NOT RUN { set.seed(200100) X <- matrix(rnorm(100), nrow = 10) d <- rnorm(10) output_allocation(X,d) # }
Run the code above in your browser using DataLab