I may develop more dists in my blog later on.
- data x;
- call streaminit(1234);
- lambda=1;/*Survival time ~ exponential(1)*/
- beta =log(4);
- tc=2.0;/*End of followup data T=2*/
- do i=1 to 800;
- censor=0;
- x =rand('table',0.5)-1;/*0 vs 1 = 50% vs 50%*/
- u=rand('uniform');
- T =-log(u)/(lambda *exp(beta*x));
- if T >tc then do;
- censor=1;
- T=tc;
- end;
- output;
- end;
- run;


雷达卡




京公网安备 11010802022788号







