/** do-file used on april 1 2013 to compute new summary statistics on forbes rankings*/


/*
collapse (count) nb=xwaveid (mean) meanage=age (sum) totwealth=worth (min) minwealth=worth (max) maxwealth=worth (mean) meanwealth=worth, by(year);
*/

#delimit;

set more off;

/*top 100*/
/*
use C:\Users\t.piketty\Dropbox\Capital21c\Data\ForbesWealthReportsEtc\Forbes\Forbes_28march2011.dta, clear;
gsort year - worth;
gen rank0=1;
replace rank0=rank0[_n-1]+1 if year==year[_n-1];
keep if rank0<=100;
collapse (min) minwealth=worth (mean) meanwealth=worth, by(year);
*/

/*
/*top 1/20M*/
use C:\Users\t.piketty\Dropbox\Capital21c\Data\ForbesWealthReportsEtc\Forbes\Forbes_28march2011.dta, clear;
gsort year - worth;
gen rank0=1;
replace rank0=rank0[_n-1]+1 if year==year[_n-1];
drop if year<1990;
drop if year==1990 & rank0>152;
drop if year==1991 & rank0>156;
drop if year==1992 & rank0>159;
drop if year==1993 & rank0>163;
drop if year==1994 & rank0>166;
drop if year==1995 & rank0>169;
drop if year==1996 & rank0>172;
drop if year==1997 & rank0>176;
drop if year==1998 & rank0>179;
drop if year==1999 & rank0>182;
drop if year==2000 & rank0>185;
drop if year==2001 & rank0>189;
drop if year==2002 & rank0>192;
drop if year==2003 & rank0>196;
drop if year==2004 & rank0>199;
drop if year==2005 & rank0>203;
drop if year==2006 & rank0>207;
drop if year==2007 & rank0>211;
drop if year==2008 & rank0>214;
drop if year==2009 & rank0>218;
drop if year==2010 & rank0>222;
collapse (min) minwealth=worth (mean) meanwealth=worth, by(year);
*/

use C:\Users\t.piketty\Dropbox\Capital21c\Data\ForbesWealthReportsEtc\Forbes\Forbes_28march2011.dta, clear;
gsort year - worth;
gen rank0=1;
replace rank0=rank0[_n-1]+1 if year==year[_n-1];
drop if year<1990;
drop if year==1990 & rank0>152/5;
drop if year==1991 & rank0>156/5;
drop if year==1992 & rank0>159/5;
drop if year==1993 & rank0>163/5;
drop if year==1994 & rank0>166/5;
drop if year==1995 & rank0>169/5;
drop if year==1996 & rank0>172/5;
drop if year==1997 & rank0>176/5;
drop if year==1998 & rank0>179/5;
drop if year==1999 & rank0>182/5;
drop if year==2000 & rank0>185/5;
drop if year==2001 & rank0>189/5;
drop if year==2002 & rank0>192/5;
drop if year==2003 & rank0>196/5;
drop if year==2004 & rank0>199/5;
drop if year==2005 & rank0>203/5;
drop if year==2006 & rank0>207/5;
drop if year==2007 & rank0>211/5;
drop if year==2008 & rank0>214/5;
drop if year==2009 & rank0>218/5;
drop if year==2010 & rank0>222/5;
collapse (min) minwealth=worth (mean) meanwealth=worth, by(year);