

#delimit;
set more off;



use "F:\Successions17911914\OnLineFilesOct2005(AER)\DataFiles\1837.ind.dta", clear;

/*Table A1*/
su total;
su total if total>0;

/*Table A2*/
sort total;
cumul total, gen(ptotal);
su total if ptotal>0.8;
su total if ptotal>0.9;
su total if ptotal>0.95;
su total if ptotal>0.99;
su total if ptotal>0.995;
su total if ptotal>0.999;
su total if ptotal>0.9999;

/*Table 5*/
gen ager=real(age); drop age; rename ager age;
gen aged=10*int(age/10);
replace aged=20 if aged<20 & aged~=.;
replace aged=80 if aged>80 & aged~=.;
replace aged=. if total==0;
sort aged;
by aged: su total;


/*checking the response rate for the age question*/
gen page=0;
replace page=1 if age~=.;
ta page;
ta page if total>0;
ta page if ptotal>0.8;
ta page if ptotal>0.9;
ta page if ptotal>0.95;
ta page if ptotal>0.99;
ta page if ptotal>0.995;
ta page if ptotal>0.999;
/*>>> quasi-uniform response rate for all estates>P95, but very few observations below P95*/


