t检验宏程序（自动判断方差齐否输出相应结果）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

%macro dd(data);
data _null_;
set &data;
if ProbF>0.05 then f=1;
else f=0;
if _n_=1;
call symput('h',f);
run;
%if &h=1 %then %do;data ttest.d;
                set &data;
                                if _n_=2;
                keep tValue Probt
                                run;
                                %end;
%else  %do;data ttest.d;
           set &data;
               if _n_=3;
           keep tValue Probt
               run;
           %end;
%mend;

%macro ttest(data,cls,var);
   libname ttest "D:\SASTT";

   ods listing close;

   ods output  Summary=ttest.a;
   proc means data=&data mean std;
   class &cls;
   var &var;
   run;
   ods output close;

   ods output TTests=ttest.b2 Equality=ttest.b1;
   proc ttest data=&data;
   class &cls;
   var &var;
   run;
   ods output close;

   data ttest.c;
   set ttest.b1(keep=FValue ProbF) ttest.b2 ;
   run;

   %dd(ttest.c);

   ods listing;

   data ttest.e;
   merge ttest.a ttest.d;
   run;
   proc print data=ttest.e;
   run;
%mend;
%ttest(sashelp.class,sex,height);

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：自动判断 宏程序 方差齐 t检验 equality

thanks for sharing