Action Principale : bartProbit
| 1 | DATA casuser.CreditData_fr; |
| 2 | call streaminit(123); |
| 3 | DO i = 1 to 1000; |
| 4 | Age = 20 + floor(rand('Uniform') * 50); |
| 5 | Income = 30000 + floor(rand('Uniform') * 70000); |
| 6 | LoanAmount = 5000 + floor(rand('Uniform') * 45000); |
| 7 | IF rand('Uniform') < 0.6 THEN CustomerCategory = 'A'; |
| 8 | ELSE IF rand('Uniform') < 0.85 THEN CustomerCategory = 'B'; |
| 9 | ELSE CustomerCategory = 'C'; |
| 10 | |
| 11 | z = -2.5 + (Age / 20) - (Income / 50000) + (LoanAmount / 20000); |
| 12 | IF CustomerCategory = 'B' THEN z = z + 0.5; |
| 13 | IF CustomerCategory = 'C' THEN z = z + 1.0; |
| 14 | |
| 15 | prob = cdf('Normal', z); |
| 16 | IF rand('Uniform') < prob THEN Default = 1; |
| 17 | ELSE Default = 0; |
| 18 | |
| 19 | OUTPUT; |
| 20 | END; |
| 21 | RUN; |