data result(keep=id max time);
set c;
array t(8) _temporary_;
array num(8) _numeric_;
if _n_=1 then do i=1 to 8;t(i)=num(i);end;
else
do;
k=1;
do i=2 to 8;
if num(k)<num(i) then k=i;
end;
id=x1;time=t(k);max=num(k);output;
end;
run;
[/code:375b2]作者: shiyiming 时间: 2006-3-28 12:52 标题: to maurice 我觉得改变数据格式是个好注意!#@%$&*!~好深奥的,不懂
data a(keep=subject time concentration);
set c;
array t(8) _temporary_;
array num _numeric_;
if _n_=1 then do i=1 to 8;t(i)=num(i);end;
else
do i=1 to 8;
subject=x1;time=t(i);concentration=num(i);
output;
end;
run;
[/code:9e505]作者: shiyiming 时间: 2006-3-28 16:50 标题: To ajinomoto 挺好的,你的方法不错。又学到了一点,谢谢 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D --> !