stata编程求解基尼系数的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

最近看陈老师2001年在《上海统计》上发表的《基尼系数的测算与分解》一文，发现在stata12上 使用文章提供的分项收入分解程序运行出错。
命令行如下：
#delimit;
use "D:\test\stata\sour2001.dta",clear;
egen ttax=sum(tax);
gen mi=tax/gdp;
sort mi;
egen tgdp=sum(gdp);
gen pi=gdp/tgdp;
save temp,replace;
program drop _all;
program define gini;
egen zsr=sum($sr);
gen u$sr=zsr/tgdp;
gen wi=$sr/zsr
gen w$sr = zsr/ttax;
gen qi=sum(wi);
egen gini1=pi*(2*qi-wi);
egen gini2=sum(gini1);
gen C$sr=1-gini2;
gen C$srw$sr=C$sr*w$sr;
drop zsr wi qi gini1 gini2;
save temp,replace;
end;
use temp,clear;
global sr"zy";
gini;
global sr"sd";
gini;
global sr"lz";
gini;
global sr"ziy";
gini;
global sr"xw";
gini;
gen G=CzyWzy+CsdWsd+ClzWlz+CziyWziy+CxwWxw;
gen shGzy=CzyWzy/G;
gen shGsd=CsdWsd/G;
gen shGlz=ClzWlz/G;
gen shGziy=CziyWziy/G;
gen shGxw=CxwWxw/G;
list u* W* sh* in 1;


运行时提示：invalid 'gen' ，指的是“gen w$sr = zsr/ttax;”这一句。求教高手原因，谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：stata编程 Stata 基尼系数 tata Program 基尼系数 replace 上海 文章 程序