%macro f(database=,var=,group=);
proc sort data=&database;
by &group;
run;
proc univariate data=&database noprint;
var &var;
by &group;
output
out=result
n=n nmiss=nmiss mean=mean std=std median=median q1=q1 q3=q3 min=min max=max;
run;
data a(where=(&group=1)) b(where=(&group=2));
set result;
format mean 6.1 median 6.1 std 6.1;
run;
data ab;
set a b;
run;
data _null_;
file print notitle;
put #1 @5 "指标" @22 "子公司1" @42 "子公司2"
#2 @5 "例数(缺失)" @22 NA '(' nmissa')' @42 NB '(' nmissb')'
#3 @5 "均数(标准差)" @22 meanA '(' stda')' @42 meanB '(' stdB')'
#4 @5 "中位数(Q1-Q3)" @22 mediana '(' q1a '~' q3a')' @42 medianb '(' q1b '~' q3b')'
#5 @5 "最小值-最大值" @22 mina '~' maxa @42 minb '~' maxb;
run;
%mend f;
data example6_7;
do company=1 to 5;
do month=1 to 12;
input sales @@;
output;
end;end;
cards;
21 23 25 28 31 34 37 41 45 50 54 60
22 25 29 33 38 44 51 59 67 77 89 102
23 28 33 40 48 57 69 82 99 119 142 171
24 30 38 47 59 73 92 114 143 179 224 279
25 33 42 55 71 93 121 157 204 265 345 448
;
run;
%f(database=example6_7,var=sales,group=company);



雷达卡





京公网安备 11010802022788号







