Hoja de preparación de datos

data casuser.CreditData_fr; call streaminit(123); do i = 1 to 1000; Age = 20 + floor(rand('Uniform') * 50); Income = 30000 + floor(rand('Uniform') * 70000); LoanAmount = 5000 + floor(rand('Uniform') * 45000); if rand('Uniform') < 0.6 then CustomerCategory = 'A'; else if rand('Uniform') < 0.85 then CustomerCategory = 'B'; else CustomerCategory = 'C'; z = -2.5 + (Age / 20) - (Income / 50000) + (LoanAmount / 20000); if CustomerCategory = 'B' then z = z + 0.5; if CustomerCategory = 'C' then z = z + 1.0; prob = cdf('Normal', z); if rand('Uniform') < prob then Default = 1; else Default = 0; output; end; run;