*t为每个个体的观察时间;
*INDEX为指示变量;
*index = 1时表示求群数,此时需要赋值 x为群样本量;
*index = 2时表示求群样本量,此时需赋值x为群数;
*t为每个观察对象被观察的时间;k为研究所需群数;
运行提示:ERROR: (execution) Matrix has not been set to a value.
- proc IML;
- start CRCR(a,s,lamda1,lamda2,CV,t,index,x,power);
- error=0;
- if (a<0 | a>1)|(s^=1 & s^=2) |(lamda1<0|lamda1>1)|(lamda2<0|lamda2>1)|(index^=1 & index^=2)|(power>100|power<1) then error=1;
- if error = 1 then stop ;
- cha=abs(lamda1-lamda2);
- y=1;
- do until (pw>=power);
- y=y+1;
- if(index=1) then do;
- n=x;
- k=y;
- end;
- if (index=2) then do;
- k=x;
- n=y;
- end;
- if =1+cv##2#(lamda1##2+lamda2##2)#N#t/(lamda1+lamda2);
- pw= 100#CDF('normal',sqrt(n#t#k#(lamda1-lamda2)##2)/sqrt((lamda1+lamda2)#IF)-probit(1-a/s));
- end;
- pw= round(pw,0.001);
- print
- a[label="alpha"]
- s[label="1or2sided"]
- lamda1[label="lamda1"]
- lamda2[label="lamda2"]
- cha[label="lamda1-lamda2"]
- CV[label="CV"]
- t[label="t"]
- k[label="k"]
- N[label="N"]
- PW[label="POWER(%)"];
- FINISH CRCR;
- RUN CRCR(0.05,2,0.005,0.01,0.25,2,1,1000,80);
- QUIT;



雷达卡



京公网安备 11010802022788号







