Skip to contents

This function takes a real value and converts it to 1 if it is positive and else to 0.

Usage

dicho(val)

Arguments

val

A real value

Value

0 or 1.

See also

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"))