proc plan seed=2114;
title '中心编码分配随机数字';
factors center=5;
proc plan seed=2114;
title '试验病例分配随机数字表';
factors block=20 rand=12;
output out=aaa;
data bbb;
set aaa;
if rand<7 then group='A';
else group='B';
D_number=_n_;
if D_number<37 then center='01';
else if D_number<97 then center='02';
else if D_number<145 then center='03';
else if D_number<193 then center='04';
else center='05';
proc print;
title '试验病例随机编码表(一级盲底)';
id block;
var rand group D_number center;
proc plan seed=2114;
title '处理组分配随机数字(二级盲底)';
factors group=2;
proc sort out=blind;
by group;
title '试验药物包装表';
proc print data=blind;
var group D_number block rand;
run;作者: shiyiming 时间: 2005-12-22 14:40 标题: @ 你这个程序应该是从DXY上找到的吧.