- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 187 个
- 通用积分
- 0.0036
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 371 点
- 帖子
- 9
- 精华
- 0
- 在线时间
- 20 小时
- 注册时间
- 2005-8-25
- 最后登录
- 2015-7-2
初中生
还不是VIP/贵宾
- 威望
- 0 级
- 论坛币
- 187 个
- 通用积分
- 0.0036
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 371 点
- 帖子
- 9
- 精华
- 0
- 在线时间
- 20 小时
- 注册时间
- 2005-8-25
- 最后登录
- 2015-7-2
| 开心 2016-1-26 09:18:31 |
---|
签到天数: 6 天 连续签到: 1 天 [LV.2]偶尔看看I
|
5论坛币
libname biostat "E:\作业2";
%let data=biostat.shengtong;
%let keepvar=A2 A3 A6 A10 A11;
%macro ttest;
proc contents data=&data. (keep=&keepvar.) varnum out=namelist noprint;
run;
proc sql noprint;
select distinct name
into :depent separated by ' '
from namelist;
proc sql noprint;
select count(*) into : nobv
from namelist;
quit;
%do i=1 %to &nobv;
%let var_=%sysfunc(scan(&depent,&i,’ ‘));
ods output Equality=equality_&i TTests=TTests_&i;
proc ttest data=&data;
var &var_;
class a8;
run;
data equality_&i;
set equality_&i;
if probf>=0.05 then qixing="yes";
else qixing="no";
run;
%put &var_;
proc sql noprint;
select distinct qixing
into :ttest separated by ' '
from equality_&i;
quit;
%put &ttest;
%if &ttest='yes' %then %do;
data ttest_&var_;
set Ttests_&i;
if Variances ne "Equal" then delete;
run;
%if &ttest='no' %then %do;
data ttest_&var_;
set TTests_&i;
if Variances ne "Unequal" then delete;
run;
%end;
%end;
%end;
%mend;
%ttest;
|
|