SAS中的SQL语句大全(9)

data Tx (label='Treatment Code Information' drop=a);

do a=1 to 3000;

Subject_No=a;

if a le 1500 then center =100; else center=200;

random_date=int(15000+20*ranuni(315975)); format random_date mmddyy10.;

if ranuni(97511) lt .5 then tx=1; else tx=2;

output;

end;

label tx='Treatment Code'

random_date='Randomization Date'

subject_no=\

run;

data Scores(label='Recorded Scores at Visits' drop=j c);

length Subject_ID $8 Visit 8 A1-A10 8 B1-B10 $20;

array A[10]; array B[10];

do c=1 to 3000;

if c le 1500 then subject_id=compress('100-'||put(c,z4.));

else subject_id=compress('200-'||put(c, z4.));

do Visit=1 to 20;

do j=1 to 10;

a[j]=j*ranuni(j);

b[j]=left(put(.5+j**2*ranuni(j),7.3));

end;

output;

end;

end;

format a: 5.2;

run;

data Surgery;

length SID $8 Visit 8 case 8;

do k=5 to 3000 by 197;

if k lt 1500 then SID=compress('100-'||put(k,z4.));

else SID=compress('200-'||put(k, z4.));

Visit=10+int(10*ranuni(971156));

case+1;

drop k;

output;

end;

run;

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库SAS中的SQL语句大全(9)在线全文阅读。