作者kenshin528 (成立奥凶帝国!!)
站内Statistics
标题Re: [问题] 关於macro语法的问题
时间Tue Nov 4 12:21:14 2008
※ 引述《Brunhilde (不见。)》之铭言：
: 刚学macro的语法
: 有点问题想请教一下
: 我有设定了
: %do i=0 %to 1;
: 可是只跑出了0的部份
: 以下为全部语法 谢谢
: data y n;set HY.taidd96_06480487;
: if ICD9_2 in ('493','490','491','492','494','496') then output y;
: else output n;
: run;
: %macro aa;
: data L0;Set HY.taipollcli;day=date;
^^^^
: %do i=0 %to 1;
: L0&i.PM10=lag&i(PM10);
: L0&i.SO2=lag&i(SO2);
: L0&i.NO2=lag&i(NO2);
: L0&i.CO=lag&i(CO);
: L0&i.O3=lag&i(O3);
: if 1996 le year(date) le 2006 then output;
: if temp<23 then output;
: drop PM10 CO SO2 NO2 O3 stno;
: format day date9.;
: run;
^^^^
data 和run 是一组的 也就是说，虽然你在最後面加了对应%do的%end
但是sas在这边就会把你的%do卡掉
你下面的程式我没有细看，所以不确定你想做什麽
如果要把整个内容用i=0 和1各执行一便的话
可以把%do那一行放到data上面那一行试试看
: proc sort data= L0;
: by day;run;
: proc sort data=N;by IN_DATE;run;
: data b;set N; day=IN_date;
: BY IN_DATE;
: IF FIRST.IN_DATE THEN DO;
: NO=0;
: END;
: NO+1;
: IF LAST.IN_DATE;
: if 1996 le year(IN_date) le 2006 then output;
: format day date9.;
: run;
: data ev; merge b(in=e) L0;by day;
: if e=1;
: run;
: data event; set ev;
: eventday=In_date;
: format eventday date9.;
: Run;
: data ref1; set event;
: day=eventday+7; EVEN=2;
: drop L0&i.PM10 L0&i.CO L0&i.SO2 L0&i.NO2 L0&i.O3 RH temp;
: format day date9.;run;
: proc sort data=ref1;
: by day;run;
: data ref11; merge ref1(in=e) L0;
: by day;if e=1;case=0;
: ;run;
: data ref2; set event;
: day=eventday-7; EVEN=2;
: drop L0&i.PM10 L0&i.CO L0&i.SO2 L0&i.NO2 L0&i.O3 RH temp;
: format day date9.;run;
: proc sort data=ref2; by day;run;
: data ref22; merge ref2(in=e) L0; by day;if e=1;case=0;
: run;
: data event0;set event;
: drop L0&i.PM10 L0&i.CO L0&i.SO2 L0&i.NO2 L0&i.O3 RH temp;
: day=eventday; EVEN=1;format day date9.;run;
: data event00;merge event0(in=e) L0; by day;
: ;if e=1;case=1;run;
: data test; set event00 ref11 ref22; run;
: proc sort data=test;by day;run;
: data test1;merge test(in=e) b;by day;
: if e=1;
: run;
: data test2;set test1;
: a&i.PM10=L0&i.PM10/24.99 ;
: a&i.SO2=L0&i.SO2/2.42;
: a&i.NO2=L0&i.NO2/8.67;
: a&i.CO=L0&i.CO/0.37;
: a&i.O3=L0&i.O3/12.2;
: Run;
: /*单变项ties case(0) TIES=BRESLOW weight*/
: proc phreg data=test2;
: model even*case(0)=a&i.PM10 /rl TIES=BRESLOW;strata eventday; weight no;run;
: proc phreg data=test2;
: model even*case(0)=a&i.SO2 /rl TIES=BRESLOW; strata eventday; weight no;run;
: proc phreg data=test2;
: model even*case(0)=a&i.NO2 /rl TIES=BRESLOW ;strata eventday; weight no;run;
: proc phreg data=test2;
: model even*case(0)=a&i.CO /rl TIES=BRESLOW; strata eventday; weight no;run;
: proc phreg data=test2;
: model even*case(0)=a&i.O3 / rl TIES=BRESLOW; strata eventday; weight no; run;
: %end;
: %mend aa;
: %aa;
--
(
C)lass 【 分组讨论区 】
11 卡漫梦工厂 卡通, 漫画, 动画 [Ckmike]
4 C_J_Artist
作家 Σ日本漫画家专区 [Ckmike]
10 TakahasiShin 作家 ◎****高桥真作品讨论版**** kenshin528
http://kenshinsasstory.blogspot.com/ SAS Story
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.119.47.118
1F：推 Brunhilde:thanks 11/04 13:50