* STATA 7.0 DO FILE *
* SARI PROJECT *
* BY CHRIS BLATTMAN *
* FEBRUARY 8, 2002 *

clear
set more off
insheet using "C:\My Documents\SARI\Data\SARI DATA2.csv", clear
log using "C:\My Documents\SARI\Data\SARI DATA2.log", replace


** CLEAN UP DATA SET **

drop if income <= 0

replace hd_educ = 0 if hd_educ == 1
replace hd_educ = 3 if hd_educ == 2
replace hd_educ = 7 if hd_educ == 3
replace hd_educ = 10 if hd_educ == 4
replace hd_educ = 12 if hd_educ == 5
replace hd_educ = 14 if hd_educ == 6
replace hd_educ = 16 if hd_educ == 7

replace ag_prob = 0 if ag_prob == .
replace ag_prob = 1 if ag_prob >= 1
replace ag_prob = . if grow_crops == 0


** CREATE NEW VARIABLES **

gen small = 0 
replace small = 1 if village_size == 1
gen med = 0 
replace med = 1 if village_size == 2
gen large = 0 
replace large = 1 if village_size == 3
gen vlarge = 0 
replace vlarge = 1 if village_size == 4

gen underten = 0
replace underten = 1 if dist_melur == "<10"
gen tentotwenty = 0
replace tentotwenty = 1 if dist_melur == "10 to 20"
gen twentyplus = 0
replace twentyplus = 1 if dist_melur == "20+"

gen sc = 0
replace sc = 1 if caste == 1

gen mbc = 0
replace mbc = 1 if caste == 3

gen bc = 0
replace bc = 1 if caste == 4

gen fc = 0
replace fc = 1 if caste == 5

gen muslim = 0
replace muslim = 1 if religion == 3

replace caste = . if caste == 6
replace caste = 2 if caste == 3
replace caste = 3 if caste == 4
replace caste = 4 if caste == 5
replace caste = 4 if muslim == 1



gen lnphoneexp = ln(phone_exp)
replace lnphoneexp = 0 if lnphoneexp == .
gen lnelecexp = ln(elec_exp)
replace lnelecexp = 0 if lnelecexp == .
gen lncableexp = ln(cable_exp)
replace lncableexp = 0 if lncableexp == .
gen lnpostexp = ln(post_exp)
replace lnpostexp = 0 if lnpostexp == .
gen lnnewsexp = ln(news_exp)
replace lnnewsexp = 0 if lnnewsexp == .

gen lnincome = ln(income)
gen income2 = income^2

order phone_exp lnphoneexp cable_exp lncableexp post_exp lnpostexp news_exp lnnewsexp send_mail receive_mail make_calls receive_calls newspaper watchtv listen_radio ag_prob apply_scheme income income2 lnincome  small med large vlarge underten tentotwenty twentyplus sc muslim religion caste away_home kallenjium grow_crops acres own_phone own_home have_elec own_tv own_cable elec_exp post_off priv_tel pub_tel hd_educ hd_lit_tam hd_lit_eng hd_gender hd_age 


*****************************
** EXPENDITURE REGRESSIONS **
*****************************

corr lnphoneexp lncableexp lnpostexp lnnewsexp lnincome
corr send_mail receive_mail make_calls receive_calls newspaper watchtv listen_radio lnincome
corr lnphoneexp lncableexp lnpostexp lnnewsexp lnincome own_phone caste hd_lit_tam small med large vlarge underten tentotwenty twentyplus pub_tel away_home grow_crops post_off sc muslim  send_mail receive_mail make_calls receive_calls newspaper watchtv listen_radio
codebook lnphoneexp lncableexp lnpostexp lnnewsexp lnincome own_phone caste hd_lit_tam small med large vlarge underten tentotwenty twentyplus pub_tel away_home grow_crops post_off sc muslim  send_mail receive_mail make_calls receive_calls newspaper watchtv listen_radio

tobit lnpostexp lnincome caste hd_lit_tam grow_crops own_phone away_home post_off pub_tel small med large tentotwenty twentyplus , ll(0)

tobit lnphoneexp lnincome caste hd_lit_tam grow_crops own_phone away_home pub_tel small med large tentotwenty twentyplus , ll(0)

tobit lncableexp lnincome caste hd_lit_tam grow_crops small med large tentotwenty twentyplus , ll(0)

tobit lnnewsexp lnincome caste hd_lit_tam grow_crops own_cable small med large tentotwenty twentyplus , ll(0)


***********************
** USAGE REGRESSIONS **
***********************

dprobit send_mail income caste hd_lit_tam grow_crops own_phone away_home post_off pub_tel small med large tentotwenty twentyplus , robust

dprobit make_calls income caste hd_lit_tam grow_crops own_phone away_home pub_tel small med large tentotwenty twentyplus , robust

dprobit watchtv income caste hd_lit_tam grow_crops own_tv own_cable small med large tentotwenty twentyplus , robust

dprobit newspaper income caste hd_lit_tam grow_crops small med large tentotwenty twentyplus , robust

dprobit listen_radio income caste hd_lit_tam grow_crops small med large tentotwenty twentyplus , robust

dprobit own_phone income caste hd_lit_tam grow_crops away_home pub_tel small med large tentotwenty twentyplus , robust

dprobit own_tv income caste hd_lit_tam grow_crops small med large tentotwenty twentyplus, robust
dprobit own_tv income caste hd_lit_tam grow_crops have_elec small med large tentotwenty twentyplus, robust

dprobit ag_prob income caste acres hd_lit_tam small med large tentotwenty twentyplus  , robust

dprobit apply_scheme make_calls income bc mbc fc muslim small med large tentotwenty twentyplus caste , robust



log close