proc iml;
mu={0,0};
sig={1 0.9, 0.9 1};
a=half(sig)`;
do seed=1 to 1000;
p=2;
n=30;
x=rannor(j(p,n,seed));
y=a*x+mu*j(1,n,1);
ybar=y[,:];
yc=y-ybar*j(1,n,1);
s=yc*yc`/(n-1);
val=eigval(s);
minval=min(val);
end;
我想将上述程序中的产生的1000个minval存入一个数据中（或者输出到excel文档中）应该如何办到？