1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
| proc format;
value f_bin
0 = "Sans"
1 = "Avec"
;
run;
data one1;
do id = 1 to 40000;
if id <= 200 and id > 30000 then
do;
sex = "M";
if ranuni(684) > 0.36 then
sex = "F";
age = (rannor(3416487) + 42);
a = rannor(34487);
if ranuni(68444) > 0.86 then
a = 999999;
b = rannor(34587);
if ranuni(6854) > 0.86 then
b = 999999;
c = rannor(458);
if ranuni(68444) > 0.86 then
c = 999999;
d = rannor(254);
if ranuni(64484) > 0.86 then
d = 999999;
e = rannor(125);
if ranuni(68144) > 0.86 then
e = 999999;
f = rannor(15);
if ranuni(62584) > 0.86 then
f = 999999;
g = put(ranbin(86387, 1, 0.2), f_bin.);
if ranuni(684) > 0.86 then
g = "DM";
h = put(ranbin(44387, 1, 0.2), f_bin.);
if ranuni(68594) > 0.86 then
h = "DM";
i = put(ranbin(44387, 1, 0.2), f_bin.);
if ranuni(6596844) > 0.86 then
i = "DM";
j = put(ranbin(4387, 1, 0.2), f_bin.);
if ranuni(654525294) > 0.86 then
j = "DM";
k = put(ranbin(3487, 1, 0.2), f_bin.);
if ranuni(46594) > 0.86 then
k = "DM";
l = put(ranbin(355487, 1, 0.2), f_bin.);
if ranuni(26594) > 0.86 then
l = "DM";
m = put(ranbin(34487, 1, 0.2), f_bin.);
if ranuni(16594) > 0.86 then
m = "DM";
n = put(ranbin(345587, 1, 0.2), f_bin.);
if ranuni(86594) > 0.86 then
n = "DM";
o = put(ranbin(55587, 1, 0.2), f_bin.);
if ranuni(96594) > 0.86 then
o = "DM";
p = put(ranbin(3552587, 1, 0.2), f_bin.);
if ranuni(866594) > 0.86 then
p = "DM";
flag_pop = (ranuni(6854) > 0.85);
output;
end;
output;
end;
run; |
Partager