Derivation
variable: panga (table[s]: css_seh)
variable: hoe (table[s]: css_seh)
variable: axe (table[s]: css_seh)
variable: plough (table[s]: css_seh)
variable: fishnet (table[s]: css_seh, gp_gphhold)
variable: wheelb (table[s]: css_seh)
variable: oxcart (table[s]: css_seh, caps_blhse, gp_gphhold)
variable: oxcart_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: clock (table[s]: css_seh, caps_blhse)
variable: watchclock (table[s]: gp_gphhold)
variable: mattress (table[s]: css_seh, caps_blhse)
variable: bedmt_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: bed (table[s]: css_seh, caps_blhse)
variable: bedmt_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: chair (table[s]: css_seh)
variable: tabchar_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: tble (table[s]: css_seh)
variable: tabchar_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: sofa_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: pot (table[s]: css_seh)
variable: ciron (table[s]: css_seh)
variable: iron (table[s]: caps_blhse)
variable: bicycle (table[s]: css_seh, gp_gphhold)
variable: bike (table[s]: caps_blhse)
variable: bicyc_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: canoe (table[s]: css_seh, caps_blhse, gp_gphhold)
variable: sewing (table[s]: css_seh, caps_blhse)
variable: parlamp_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: tape (table[s]: css_seh)
variable: fan (table[s]: css_seh)
variable: fridge (table[s]: css_seh)
variable: refrig_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: eiron (table[s]: css_seh)
variable: tv (table[s]: css_seh)
variable: telv_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: mopho_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: landpho_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: radio (table[s]: css_seh, caps_blhse, gp_gphhold)
variable: radio_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: egcook_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: felect (table[s]: caps_blhse)
variable: flpg (table[s]: caps_blhse)
variable: car (table[s]: css_seh, caps_blhse)
variable: car_mode (table[s]: NCD_combined_data_all_final [derived table])
variable: motorbike (table[s]: css_seh, caps_blhse, gp_gphhold)
variable: motcyc_mode (table[s]: NCD_combined_data_all_final [derived table])
<Kwacha value of possessions is summed and turned into a decile variable in relation to all other records with this data within the same year>
*(the values for each item are (usually) the middle of the range of typical prices given by the crs fieldworkers on 22 August 2014, the range is given in the comments afterwards.)
*(the second comment, if present, is the price in the original do-file from may 2005)
local pangaval=1500 /*1000-3000*/
local axeval=1500 /*1000-2000*/
local cironval=1500 /*1000-2000*/
local parlampval=2000 /*1500-2500*/
local hoeval=2500 /*1500-3500*/
local clockval=3500 /*1500-5000*/ /*2005: 150*/
local mosnetynval=4500 /*3500-5000*/ /*2005: 100*/
local potval=6000 /*2000-10,000*/
local chairval=6500 /*2500-10,000*/
local eironval=7500 /*5000-10,000*/
local radioval=8000 /*1000-15,000*/ /*2005: 600*/
local mobileval=10000 /*3000-60,000*/
local landphoval=15000 /*10,000-20,000*/
local fanval=22500 /*15,000-30,000*/
local tbleval=25000 /*15,000-25,000*/
local wheelbval=30000 /*20,000-40,000*/
local mattressval=31000 /*12,000-50,000*/
local bedval=32500 /*15,000-50,000*/
local tapeval=32500 /*15,000-50,000*/
local bicycleval=35000 /*20,000-50,000*/ /*2005: 4000*/
local sewingval=35000 /*20,000-50,000*/
local canoeval=50000 /*40,000-60,000*/ /*2005: 4000*/
local fishnetval=60000 /*20,000-100,000*/ /*2005: 4000*/
local ploughval=75000 /*50,000-100,000*/
local tvval=85000 /*70,000-100,000*/
local egcookval=100000 /*80,000-120,000*/
local sofaval=125000 /*50,000-200,000*/
local oxcartval=200000 /*180,000-220,000*/ /*2005: 25000*/
local fridgeval=200000 /*150,000-250,000*/
local motorbikeval=350000 /*200,000-500,000*/ /*2005: 60000*/
local carval=2000000 /*1,000,000-3,000,000*/
*divide the possessions into cheap (under 10,000K), middle (10,000-under 100,000K) and expensive (over 100,000K)
local posscheap "panga axe ciron parlamp hoe clock pot chair eiron radio"
local possmid "mobile landpho fan tble wheelb mattress bed tape bicycle sewing canoe fishnet plough tv"
local possexp "egcook sofa oxcart fridge motorbike car"
foreach poss in cheap mid exp {
local possessions="`poss`poss''"
egen nask`poss'=rownonmiss(`poss`poss'')
egen nyes`poss'=rowtotal(`poss`poss'')
if "`poss'"=="mid" replace nask`poss'=nask`poss'-1
gen poss`poss'poss=0 if nask`poss'>=2 /*only use data if at least 2 of the items were asked about*/
foreach item of local possessions { /*loop through the items listed above in local possessions*/
replace poss`poss'poss=poss`poss'poss+``item'val' if `item'~=. & nask`poss'>=2 /*if the possession variable is not missing they have been asked about it so its value can be added to the total possible they could have*/
gen `item'val=`item'*``item'val' /*if they have the item its var will equal 1 (0 if no and . if unknown) so this create a var with the value of the item if they have it*/
}
replace poss`poss'poss=. if poss`poss'poss==0 /*replace total possible score with missing if none of the questions asked*/
egen poss`poss'=rowtotal(*val) if poss`poss'poss>0 & poss`poss'poss~=. /*adds up all the value vars which had the value of the item if they say that own one*/
gen possscore`poss'=100*(poss`poss'/poss`poss'poss) /*creates a % var with the value of total items owned as numerator and the value of the items asked about as the denominator*/
drop *val
}
egen possscore1=rowmean(possscorecheap possscoremid) /*make average of cheap and middle items*/
replace possscore1=int(possscore1/10)+nyesexp /*add 1 point for each expensive item they have*/
foreach y in `yearlist' {
cap xtile possscorey`y'=possscore1 if year==`y', nq(10) /*score is created by splitting the population into deciles*/
if _rc~=0 gen possscorey`y'=.
}
egen possscore=rowmax(possscorey*)
