

#delimit;
set more off;



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

/*Table A1*/
su sn;
su sn if sn>0;
su sb if sb>0;

/*Table A2*/
sort sn;
cumul sn, gen(psn);
su sn if psn>0.8;
su sn if psn>0.9;
su sn if psn>0.95;
su sn if psn>0.99;
su sn if psn>0.995;
su sn if psn>0.999;
su sn if psn>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 sn==0;
sort aged;
by aged: su sn;


/*checking the response rate for the age question*/
gen page=0;
replace page=1 if age~=.;
ta page;
ta page if sn>0;
ta page if psn>0.8;
ta page if psn>0.9;
ta page if psn>0.95;
ta page if psn>0.99;
ta page if psn>0.995;
ta page if psn>0.999;
/*>>> quasi-uniform response rate for all estates>0*/


/*Table A4*/


replace age=. if age<20 | sn==0;
replace page=0 if age==.;
ta page if sn>0;
drop if sn>0 & page==0;
gen ageq=5*int(age/5);
drop if ageq~=. & ageq>100;
replace ageq=80 if ageq==85 | ageq==90 | ageq==95 | ageq==100;
ta ageq;


/*weights with uniform mortality assumption (assumption n1)*/
gen pond=56 if sn==0;
replace pond=388 if ageq==20;
replace pond=362 if ageq==25;
replace pond=294 if ageq==30;
replace pond=224 if ageq==35;
replace pond=180 if ageq==40;
replace pond=144 if ageq==45;
replace pond=116 if ageq==50;
replace pond=92 if ageq==55;
replace pond=65 if ageq==60;
replace pond=48 if ageq==65;
replace pond=34 if ageq==70;
replace pond=22 if ageq==75;
replace pond=12 if ageq==80;
sort sn;
cumul sn [w=pond], gen(psn2);
su sn [w=pond];
su sn if sn>0 [w=pond];
su sn if psn2>0.8 [w=pond];
su sn if psn2>0.9 [w=pond];
su sn if psn2>0.95 [w=pond];
su sn if psn2>0.99 [w=pond];
su sn if psn2>0.995 [w=pond];
su sn if psn2>0.999 [w=pond];
su sn if psn2>0.9999 [w=pond];
gen sn2=sn/1000;
su sn2 if psn2>0.9999 [w=pond];


/*weights with differential mortality assumption (assumption n2)*/
drop pond psn2 sn2;
gen pond=53 if sn==0;
replace pond=446 if ageq==20;
replace pond=417 if ageq==25;
replace pond=353 if ageq==30;
replace pond=280 if ageq==35;
replace pond=225 if ageq==40;
replace pond=180 if ageq==45;
replace pond=145 if ageq==50;
replace pond=110 if ageq==55;
replace pond=75 if ageq==60;
replace pond=53 if ageq==65;
replace pond=35 if ageq==70;
replace pond=22 if ageq==75;
replace pond=12 if ageq==80;
sort sn;
cumul sn [w=pond], gen(psn2);
su sn [w=pond];
su sn if sn>0 [w=pond];
su sn if psn2>0.8 [w=pond];
su sn if psn2>0.9 [w=pond];
su sn if psn2>0.95 [w=pond];
su sn if psn2>0.99 [w=pond];
su sn if psn2>0.995 [w=pond];
su sn if psn2>0.999 [w=pond];
su sn if psn2>0.9999 [w=pond];
gen sn2=sn/1000;
su sn2 if psn2>0.9999 [w=pond];





 



