GAUSS: データの組み換え プロシージャー

何行何列のデータが分からず，
何行か，もしくは何列かだけ，分かる場合がある．
そのとき，データの読み込みは

load data[]=d:\datafile.txt;

として読み込むとする．
このデータが何行か分からないが，3列のデータだとすると，
以下のプロシージャーを

（＝＝＝＝ここから下コピー＝＝＝＝＝＝＝＝＝＝）

proc datachange(X,T,T2);
local XX;
if T2>0; T=rows(X)/T2;
else; T2=rows(X)/T;
endif;
XX=reshape(X,T,T2);
retp(XX);
endp;

（＝＝＝＝この上の行までコピー＝＝＝＝＝＝）

ファイルに入力し，
そのあと，

data=datachange(data,T,3);

と打てば，データがマトリックスの形に整えられる．

（このプロシージャーは，複数のデータを読み込むときに便利）