Input requirement
input_requirement(X, d)
X
transaction matrix
d
final demand vector
set.seed(200100) X <- matrix(rnorm(100), nrow = 10) d <- rnorm(10) input_requirement(X, d)