Derivation
variable: giftreceive (table[s]: css_seh)
variable: loanreceive (table[s]: css_seh)
variable: giftgive (table[s]: css_seh)
variable: loangive (table[s]: css_seh)
variable: newloan (table[s]: css_seh)
variable: savinggp (table[s]: css_seh)
variable: savings (table[s]: css_seh)
egen safescore1=rowtotal(giftreceive loanreceive giftgive loangive newloan savinggp savings)
replace safescore1=. if giftreceive==. & loanreceive==. & giftgive==. & loangive==. & newloan==. & savinggp==. & savings==.
xtile safescore=safescore1, nq(10) /*score is created by splitting the population into deciles*/