Augmented input requirement

augmented_input_requirement(X, w, c, d)

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