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,] 0.1840605 12.3386332 1.18292348 -3.9336499 2.73096571 8.01733002
#> [2,] 0.5783818 -5.2498839 5.45163573 0.8504209 2.20484007 -1.53972725
#> [3,] -1.2882143 4.2744900 -8.74408888 10.8853138 -0.01137552 -5.99483536
#> [4,] -2.7033914 -3.5151111 4.79665303 2.9938076 3.75962469 -1.35952720
#> [5,] -2.7455350 2.6455381 4.45152113 -9.2327510 0.75079690 8.12451955
#> [6,] 2.4614809 -0.1395659 -12.19422659 3.2585881 -7.47411138 -5.91929540
#> [7,] 0.3702670 0.8479074 13.26009764 -4.6596718 7.03296925 6.52806228
#> [8,] -7.6143137 -11.4572728 -1.23301745 9.9110744 0.86816570 -9.75733684
#> [9,] -4.5217220 -9.0551277 0.46018517 6.9684074 1.27499390 -6.94924222
#> [10,] -6.8124286 -4.2039732 -0.08122419 -0.9362211 -0.08702740 0.01235493
#> X3 X4 X5 X6
#> [1,] 7.2302373 -1.0025756 4.2816227 3.504236
#> [2,] -4.6000618 3.3607151 -0.3772456 -3.414823
#> [3,] 7.4682490 -0.9609521 -6.9058364 6.497262
#> [4,] -2.1428548 2.0889551 -3.0214268 -3.813715
#> [5,] -0.5424408 -2.7004279 4.6369886 -4.011397
#> [6,] 2.2186564 -3.7116216 -2.1406431 5.980646
#> [7,] -3.0511856 5.0705640 4.5793837 -4.985306
#> [8,] -4.3827471 -1.1882134 -11.8305442 -6.444355
#> [9,] -3.8188897 0.4960563 -7.7096033 -4.587585
#> [10,] -1.5672810 -3.8871170 -3.7895268 -5.390915
dicho(dataAstar4)
#> Y 1 Y 2 Y 3 Y 4 X1 X2 X3 X4 X5 X6
#> [1,] 1 1 1 0 1 1 1 0 1 1
#> [2,] 1 0 1 1 1 0 0 1 0 0
#> [3,] 0 1 0 1 0 0 1 0 0 1
#> [4,] 0 0 1 1 1 0 0 1 0 0
#> [5,] 0 1 1 0 1 1 0 0 1 0
#> [6,] 1 0 0 1 0 0 1 0 0 1
#> [7,] 1 1 1 0 1 1 0 1 1 0
#> [8,] 0 0 0 1 1 0 0 0 0 0
#> [9,] 0 0 1 1 1 0 0 1 0 0
#> [10,] 0 0 0 0 0 1 0 0 0 0
rm(list=c("dimX","Astar"))