Augmented input requirement
augmented_input_requirement(X, w, c, d)
| X | transaction matrix |
|---|---|
| w | wage vector |
| c | household consumption vector |
| d | final demand vector |
set.seed(200100) X <- matrix(rnorm(100), nrow = 10) w <- rnorm(10) c <- rnorm(10) d <- rnorm(10) augmented_input_requirement(X,w,c,d)#> [,1] [,2] [,3] [,4] [,5] [,6] #> [1,] -15.346004 -1.973964 2.2867714 -0.1686484 5.166728 -0.73525084 #> [2,] 13.061922 -2.425407 -2.6776604 1.3790554 -3.955380 0.40315653 #> [3,] 10.860948 4.900601 0.9226978 0.6177698 5.311282 -0.05076422 #> [4,] -21.196858 2.096028 -2.7314846 2.2549222 1.797215 -2.19810982 #> [5,] -1.362137 -2.085547 0.1161758 -5.1425102 -2.317248 -0.25545522 #> [6,] -30.210590 -1.344840 2.0034873 0.8335785 -2.453319 -0.84805453 #> [7,] 41.472872 -1.030675 -2.1548542 3.4248987 4.364848 1.24204676 #> [8,] 11.997273 1.154238 3.1701327 3.6874286 -5.199570 -1.63457944 #> [9,] -21.327199 -2.141044 1.2530395 -2.9280167 -11.074503 1.45510254 #> [10,] 16.312365 -1.639255 3.6310329 0.6905884 1.169745 1.97737947 #> [11,] -1.609014 -0.429414 1.2164986 0.8869399 -4.531397 -1.02280754 #> [,7] [,8] [,9] [,10] [,11] #> [1,] 1.5027840 -12.68047050 0.17672707 6.952589 18.04086869 #> [2,] 0.4037976 -6.12237764 -0.17048843 -9.966587 -1.15805403 #> [3,] 0.8018773 16.29218115 -0.06737316 -11.671337 0.16076279 #> [4,] -0.4181114 28.32068615 -0.45856823 22.545630 0.48104345 #> [5,] -0.8292523 -24.05906574 0.14037926 -3.799700 12.48834312 #> [6,] -1.1308336 0.41804678 -0.85049288 18.392566 -1.98863668 #> [7,] -0.9462193 6.74293510 0.22146664 -2.842574 0.01681017 #> [8,] 0.8271427 -23.85124086 -1.05161292 9.721347 -3.19874636 #> [9,] -0.5813566 0.08792439 -0.30086341 -7.942300 0.05306362 #> [10,] -0.9647496 -29.66789739 0.13129698 8.530024 9.13239753 #> [11,] -0.4313620 18.66288560 0.34562184 -9.113877 0.00000000