data crackman;
input x y z@@;
cards;
1 2 2 4 5 7 7 8 9 9 11 12 13 14 15
;
run;
proc transpose data=crackman out=Tcrackman;
var x y z;
run;
data Tcrackman;
set Tcrackman;
array col col:;
array r r1-r4;
do i=1 to dim(col)-1;
do j=i+1;
r(i)=(col(j)-col(i))/col(i);
end;
end;
drop i j;
format r1-r4 f8.2;
run;