Action Principale : bartGauss
| 1 | DATA sample_data; |
| 2 | call streaminit(123); |
| 3 | DO i = 1 to 1000; |
| 4 | x1 = rand('UNIFORM'); |
| 5 | x2 = rand('UNIFORM') * 2 - 1; |
| 6 | x3 = rand('NORMAL'); |
| 7 | IF rand('UNIFORM') < 0.5 THEN c1 = 'A'; |
| 8 | ELSE c1 = 'B'; |
| 9 | y = 10 * sin(3.14 * x1) + 20 * (x2 - 0.5)**2 + 10 * x3 + (ifc(c1='A', 5, 0)) + rand('NORMAL'); |
| 10 | OUTPUT; |
| 11 | END; |
| 12 | RUN; |