**********************************************
**Table 3 of Kahneman and Krueger JEP paper **
**********************************************

* log using "C:\Documents and Settings\akrueger\My Documents\Alan\wellbeing\jeptable3.log"

clear
set mem 120m
use "C:\Documents and Settings\akrueger\My Documents\Alan\wellbeing\u-index\DRMwrktallAlan05.dta"


 sum

 
sort id

egen t = tag(id)

 

 corr satis educ if t==1

 corr satis d4 if t==1 & (d4==2 | d4==3)
 corr satis lghsinc if t==1

 corr satis age if t==1


collapse satis netaff lghs educ age d3 d4 slpqual [aweight=etime], by(id)

corr

corr satis neta

corr netaff educ

corr netaff d3
corr satis educ

corr satis d3
corr satis educ
corr netaff educ
corr netaff age
corr netaff lgh


corr satis slpq
corr netaff slpq
corr satis age
corr satis d4 if d4==2 | d4==3
corr netaff d4 if d4==2 | d4==3

 use "C:\Documents and Settings\akrueger\My Documents\Alan\wellbeing\u-index\DRMwrktallAlan05.dta", clear

 tab q3

sort id 
egen t = tag(id)

d lsta

corr q3 lsta if t==1
corr q3 sit_2e if t==1
corr q3 sit_a if t==1
corr q3 sit_2d if t==1
corr q3 sit_r if t==1
corr q3 sit_v if t==1
corr q3 sit_j if t==1
corr q3 sit_y if t==1




collapse netaff lstatj sit_2e sit_a sit_2d sit_r sit_v sit_j sit_y q3  [aweight=etime], by(id), if what_b==1

 corr netaff q3
 corr netaff lsta
 corr netaff sit_2e
 corr netaff sit_a
 corr netaff sit_2d
 corr netaff sit_r
 corr netaff sit_v
 corr netaff sit_j
 corr netaff sit_y
 corr netaff lstatj sit_2e sit_a sit_2d sit_r sit_v sit_j sit_y