1                                                             SAS 系統                         2015年 9月18日星期五 下午07時31分27秒

1          ;*';*";*/;quit;run;
2          OPTIONS PAGENO=MIN;
3          %LET _CLIENTTASKLABEL='gini';
4          %LET _CLIENTPROJECTPATH='';
5          %LET _CLIENTPROJECTNAME='';
6          %LET _SASPROGRAMFILE=;
7          
8          ODS _ALL_ CLOSE;
9          OPTIONS DEV=ACTIVEX;
10         GOPTIONS XPIXELS=0 YPIXELS=0;
11         FILENAME EGSR TEMP;
12         ODS tagsets.sasreport13(ID=EGSR) FILE=EGSR
13             STYLE=HtmlBlue
14             STYLESHEET=(URL="file:///C:/Program%20Files/SASHome/SASEnterpriseGuide/7.1/Styles/HtmlBlue.css")
15             NOGTITLE
16             NOGFOOTNOTE
17             GPATH=&sasworklocation
18             ENCODING=UTF8
19             options(rolap="on")
20         ;
NOTE: 正在寫入 TAGSETS.SASREPORT13(EGSR) Body (本文) 檔案: EGSR
21         
22         GOPTIONS ACCESSIBLE;
23         %MACRO Gini ;
24         PROC SORT DATA=&dataset ;
25         BY &var ;
26         RUN ;
27         DATA Gini (KEEP=gini) ;
28         IF _N_ = 1 THEN
29         DO UNTIL (last) ;
30         SET &dataset END=last;
31         swt + &wgt ;
32         swtey + (&wgt*&var) ;
33         END ;
34         SET hp_test END=eof;
35         IF _N_ = 1 THEN
36         DO ;
37         prewt = 0 ;
38         preey = 0 ;
39         up = 0 ;
40         sum = 0 ;
41         END ;
42         cwt + &wgt ;
43         cwtey + (&var*&wgt);
44         pcwt = cwt / swt * 100;
45         pcwtey = cwtey / swtey * 100;
46         up = (pcwt-prewt) * (pcwtey+preey) ;
47         sum + up ;
48         prewt = pcwt ;
49         preey = pcwtey ;
50         RETAIN prewt preey ;
51         IF eof THEN
52         DO ;
53         gini=1-(sum / 10000) ;
54         OUTPUT ;
55         END ;
56         RUN;
57         PROC MEANS DATA=Gini MEAN ;
2                                                             SAS 系統                         2015年 9月18日星期五 下午07時31分27秒

58         RUN;
59         %MEND Gini ;
60         
61         GOPTIONS NOACCESSIBLE;
62         %LET _CLIENTTASKLABEL=;
63         %LET _CLIENTPROJECTPATH=;
64         %LET _CLIENTPROJECTNAME=;
65         %LET _SASPROGRAMFILE=;
66         
67         ;*';*";*/;quit;run;
68         ODS _ALL_ CLOSE;
69         
70         
71         QUIT; RUN;
72