Derivation
*classify income generating sources in high, mid and low
*(1 low=2 "piecework" 11 "support from relatives" 12 "support from non-relative" 10 "providing a service" 8 "gathering natural products" 13 "other")
*(2 mid=6 "manufactoring goods" 5 "selling prepared food" 4 "fishing" 3 "farming")
*(3 high=1 "regular employment" 7 "trading" 9 "letting property")
forvalues y=1/4 {
gen inc`y'score=inc`y'hh
recode inc`y'score 2=1 11=1 12=1 10=1 8=1 13=1 6=2 5=2 4=2 3=2 1=3 7=3 9=3 .=0
}
recode inc1score 0=.
recode emphead 0/30=. 31=3 41=2 42=1 49=. 51=3 52=3 53=1 54/99=., gen(emp_cat) /*recode gp_gphhold var*/
replace inc1score=emp_cat if inc1score==. & emp_cat~=. /*and incorporate the gp_gphhold data into the newly created score var*/