我是这样编的,但是P可能大于1,恳请高手指点,谢谢
data aa;
do r=1 to 10;
rj=rannor(12345);
do f=1 to 20;
treat=(ranuni(12345)>0.5);
fij=1+1*treat+rj;
p1=exp(fij)/(1+(exp(fij)));
eij=rannor(0);
ez=sqrt((1-p1)*p1)*eij;
p=p1+ez;
y=ranbin(0,1,p);
output;
end;
end;
run;
[此贴子已经被作者于2008-4-29 10:39:09编辑过]