Output allocation
output_allocation(X, d)set.seed(200100)
X <- matrix(rnorm(100), nrow = 10)
d <- rnorm(10)
output_allocation(X, d)
#> [,1] [,2] [,3] [,4] [,5] [,6]
#> [1,] 9.5375187 -11.9683156 11.08646581 0.8436806 -7.0802684 4.87195055
#> [2,] 3.1180082 5.6481793 4.98604211 2.6497659 -2.0818643 1.02605614
#> [3,] -1.1445265 5.0380340 0.75848651 -0.5240111 -1.2341034 0.05703522
#> [4,] -2.9690785 -2.8641835 2.98455242 2.5423619 0.5550656 -3.28266691
#> [5,] 0.1363310 -2.0363261 0.09070258 4.1429015 0.5113761 0.27259372
#> [6,] 2.7703717 -1.2031036 1.43316335 -0.6152915 0.4960516 0.82914379
#> [7,] 5.7419059 1.3920901 2.32723436 3.8167641 1.3324630 1.83339969
#> [8,] -0.7508049 0.7046829 1.54757714 -1.8574787 0.7174739 1.09063107
#> [9,] 1.8801338 -1.8413410 0.86168787 2.0777060 2.1526490 -1.36765252
#> [10,] 1.5211348 1.4912518 -2.64126043 0.5183531 0.2405116 1.96592990
#> [,7] [,8] [,9] [,10]
#> [1,] 15.6387774 -6.747642737 3.6048489 5.0843181
#> [2,] -1.6139872 1.251315734 1.3357002 2.7993855
#> [3,] 1.4149209 1.469988589 -0.2330177 -1.4471874
#> [4,] 0.9806372 -3.396491835 2.1081332 -3.7158540
#> [5,] -1.3897178 -2.061717662 0.4611271 -0.4474755
#> [6,] -1.7363756 0.032823156 -2.5597256 1.9845738
#> [7,] 2.1935621 -0.799314258 -1.0063387 0.4630733
#> [8,] 0.8667447 -1.278003915 -2.1599535 0.7158419
#> [9,] -0.8581509 0.006636528 -0.8704988 -0.8238483
#> [10,] 1.5063695 2.368722308 -0.4018365 -0.9359380