If your table was big . data have;
input subject $ time heat speed weight ;
cards;
jack 0 60 20 179
jack 7 50 25 179
jack 15 60 23 175
ben 0 48 30 160
ben 7 62 32 159
ben 15 57 29 156
carol 0 39 30 136
carol 7 50 27 136
carol 15 63 24 134
;
run;
data want;
set have;
by subject notsorted;
length char_time $ 10;
array x{*} _time var1-var800;
array y{*} time heat -- weight ;
retain _time var1-var800;
if first.subject then do;
do i=1 to dim(y);
x{i}=y{i};
end;
end;
else do;
char_time=catx('/',time,_time);
do i=2 to dim(y);
y{i}=y{i}-x{i};
end;
output;
end;
drop i time _time var:;
run;
Xia Keshan
... View more