/***May 11th 2011*/
/***computation of top 100 wealth series from modified Forbes dataset*/

#delimit;
set more off;
clear;
set memory 100m;

use "C:\Users\t.piketty\Dropbox\WorldWealth-GabrielZucman\Corrected Sources\Forbes\Forbes_28march2011_corr.dta", clear;

/* Generate rank with no ties */
gsort year -worth;
by year: egen rank2=rank(-worth), unique;

collapse worth if rank2<=100, by(year);