Derivation
variable: walls (table[s]: css_seh, gp_gphhold)
variable: roof (table[s]: css_seh, gp_gphhold)
variable: floor (table[s]: css_seh, gp_gphhold)
variable: glasswind (table[s]: css_seh, gp_gphhold)
<Households are given a ranking according to dwelling quality, this ranking is then turned into a decile variable in relation to all other records with this data within the same year>
*roof (2 ranks: 1=plastic sheets & grass+leaves 2=iron sheets)
gen roofrank=1 if roof==1 | roof==6 /*1=grass/leaves, 6=grass+plastic sheet*/
replace roofrank=2 if roof==7 | roof==3 /*7=iron sheet/tiles, 3=grass+iron sheets*/
*Walls (4 ranks : 1=other 2=pounded thick mud 3=unburnt bricks 4=concrete & burnt bricks)
*(1="burnt brick" 2="unburnt brick" 3="pounded thick mud" 4="plastered thin mud" 5="bamboo" 6="grass or no wall" 7="iron sheets" 8="concrete blocks" 0="other"
gen wallrank=walls
recode wallrank 1=4 2=3 3=2 4=2 5=1 6=1 7=1 8=4 0=1 9=1
*floor (2 ranks: 1=mud & other 2=concrete)
gen floorrank=1 if floor==1 | floor==3 /*1=mud, 3=other*/
replace floorrank=2 if floor==2 /*2=concrete*/
*generate dwelling rank
gen dwellscore1=real(string(roofrank)+string(floorrank)+string(wallrank)) if roofrank!=. & wallrank!=. & floorrank!=.
recode dwellscore1 111/112=1 113/114=2 121/122=3 123/124=4 211/212=5 213/214=6 221/222=7 223/224=8
replace dwellscore1=dwellscore1+1 if glasswin==1
foreach y in `yearlist' { /*make relative dwellscore by year - so houses only compared with houses from same era*/
cap xtile dwellscorey`y'=dwellscore1 if year==`y', nq(10) /*score is created by splitting the population into deciles*/
if _rc~=0 gen dwellscorey`y'=.
}
egen dwellscore=rowmax(dwellscorey*)
