This function takes a real value and converts it to 1 if it is positive and else to 0.
Author
Frédéric Bertrand
frederic.bertrand@lecnam.net
https://fbertran.github.io/homepage/
Examples
dimX <- 6
Astar <- 4
(dataAstar4 <- t(replicate(10,simul_data_YX(dimX,Astar))))
#> Y 1 Y 2 Y 3 Y 4 X1 X2
#> [1,] -1.5767473 -10.423637 17.8668238 -3.423266 7.4124629 2.1120149
#> [2,] -2.3261451 -7.218745 -4.3570176 -1.105159 -4.6441192 -3.4051209
#> [3,] -1.5467763 -9.671050 -7.4803627 1.211798 -6.7050979 -6.8888691
#> [4,] -2.2198959 -6.651114 -2.4345804 -2.750304 -3.9466382 -1.6051432
#> [5,] 2.7850834 4.310590 -0.6838174 -2.513895 -0.5913989 2.7507784
#> [6,] 2.7205411 1.052481 14.4553128 1.708995 9.5964430 2.9103164
#> [7,] 8.4878625 9.232674 1.8198821 1.502007 2.6397608 2.2378977
#> [8,] -8.0008883 -13.323662 8.1019327 6.638906 5.3318817 -6.1588092
#> [9,] 13.1942630 23.950238 12.8024262 -7.766810 9.4975601 16.3755997
#> [10,] -0.1389223 -2.071789 -7.8709078 -5.076004 -7.3006816 -0.2330018
#> X3 X4 X5 X6
#> [1,] -11.157774 6.6920172 1.3948200 -11.8747430
#> [2,] -3.690633 -3.5929079 -2.3646270 -2.6473276
#> [3,] -4.579899 -3.8423151 -4.0396932 -1.7508093
#> [4,] -4.189938 -3.2770393 -0.9165457 -3.5276280
#> [5,] 2.049256 0.2906328 3.6489653 2.9502840
#> [6,] -2.289490 9.1193984 2.4592782 -2.7129511
#> [7,] 4.748602 5.9396690 5.5732475 8.0454072
#> [8,] -7.679693 2.1393877 -9.3808959 -10.8888544
#> [9,] 9.976914 10.2823779 17.1514003 10.7559832
#> [10,] -1.037482 -5.6526938 1.4244224 0.6573988
dicho(dataAstar4)
#> Y 1 Y 2 Y 3 Y 4 X1 X2 X3 X4 X5 X6
#> [1,] 0 0 1 0 1 1 0 1 1 0
#> [2,] 0 0 0 0 0 0 0 0 0 0
#> [3,] 0 0 0 1 0 0 0 0 0 0
#> [4,] 0 0 0 0 0 0 0 0 0 0
#> [5,] 1 1 0 0 0 1 1 1 1 1
#> [6,] 1 1 1 1 1 1 0 1 1 0
#> [7,] 1 1 1 1 1 1 1 1 1 1
#> [8,] 0 0 1 1 1 0 0 1 0 0
#> [9,] 1 1 1 0 1 1 1 1 1 1
#> [10,] 0 0 0 0 0 0 0 0 1 1
rm(list=c("dimX","Astar"))