filename sd1 'sim1.sd1'; filename sd2 'sim1.sd2'; filename controls './simsel2.dat'; DATA NEALE1; S=1.282; r=.3; k=sqrt(r); e=sqrt(1-r); I=0; FILE controls; BEGIN:IF I = 1000 THEN GO TO DONE; GT=RANNOR(0); PT1=k*GT + e*RANNOR(0); PT2=k*GT + e*RANNOR(0); IF PT1 GE S and PT2 GE S then do; put pt1 pt2; I=I+1; end; IF PT1 LE -S and PT2 LE -S then do; put pt1 pt2; I=I+1; end; output; GO TO BEGIN; DONE: COMMENT DONE; DATA CONKERS; SET NEALE1; PROC MEANS SKEWNESS; VAR PT1 PT2; PROC CORR COV; VAR PT1 PT2; RUN;