- data type;
- length process model face type $8;
- do process = 'F','S';
- do model = '350M', '600M';
- do face = 'UP', 'DN';
- do type = 'PH1', 'PH2';
- output;
- end;end;end;end;
- run;
- proc means data=test classdata=type noprint nway;
- class process model face type;
- var Height_1 Height_2 Qty;
- output out=out(drop=_freq_ _type_) mean=;
- run;
- data out2;
- set out;
- array temp (*) Height_1 Height_2 Qty;
- do i = 1 to dim(temp);
- varname = catx('_', face, type,vname(temp(i)));
- varval = temp(i);
- output;
- end;
- keep process model varname varval;
- run;
-
- proc sort data=out2;
- by process model;
- proc transpose data=out2 out=final(drop=_name_);
- by process model;
- id varname;
- var varval;
- run;


雷达卡

京公网安备 11010802022788号







