-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFIRST_DATA_2nd.do
110 lines (86 loc) · 3.62 KB
/
FIRST_DATA_2nd.do
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
clear
cd "C:\Users\Janek\Desktop\Novemer_Pilot\Main_analysis"
graph set window fontface "Times New Roman"
import excel "main study.xlsx"
keep F-AE AJ DX-DY BB-BD
foreach var in happy strong upset active proud enthusiastic guilty ashamed{
rename `var' `var'_before
}
rename G happy
rename H strong
rename I upset
rename J active
rename K proud
rename L enthusiastic
rename M guilty
rename N ashamed
*renaming all variables that need new name
foreach var in happy strong upset active proud enthusiastic guilty ashamed{
rename `var' `var'_after
}
foreach var in happy strong upset active proud enthusiastic guilty ashamed{
gen `var'_after_str = substr(`var'_after,1,1)
destring `var'_after_str, replace force
drop `var'_after
rename `var'_after_str `var'_after
gen `var'_before_str = substr(`var'_before,1,1)
destring `var'_before_str, replace force
drop `var'_before
rename `var'_before_str `var'_before
}
foreach var in happy strong upset active proud enthusiastic guilty ashamed{
gen detla_`var' = `var'_after-`var'_before
}
* var cleaning
foreach var in O P Q R S T AJ DX DY{
destring `var',replace force
}
foreach var in AC AD {
gen temp_`var' = subinstr(`var'," days","",.)
destring temp_`var',replace force
drop `var'
rename temp_`var' `var'
}
foreach var in BB BC BD{
replace `var' = substr(`var',-2,1)
destring `var',replace force
}
replace AE = "1" if AE=="Charity A"
replace AE = "2" if AE=="Charity B"
replace AE = "3" if AE=="I do not know / no opinion"
replace AE = "4" if AE=="Both are equally cost-effective"
destring AE,replace force
destring Normalized,replace force
rename Normalized impactpledged_conv
rename MoneyPledge moneypledged
replace risk = subinstr(risk,"Fully willing to take risk 10","10",.)
replace risk = subinstr(risk,"Unwilling to take risk 1","1",.)
destring risk, replace force
replace household_income = subinstr(household_income,"under 20,000","1",.)
replace household_income = subinstr(household_income,"20,000-39,999","2",.)
replace household_income = subinstr(household_income,"40,000-59,999","3",.)
replace household_income = subinstr(household_income,"60,000-99,999","4",.)
replace household_income = subinstr(household_income,"100,000-149,999","5",.)
replace household_income = subinstr(household_income,"150,000-249,999","6",.)
replace household_income = subinstr(household_income,"+250,000","7",.)
destring household_income, replace force
* analysis
hist moneypledged, name(ac, replace)
hist impactpledged_conv, name(ab, replace)
graph combine ac ab, name(abc, replace) plotregion(fcolor(white)) graphregion(fcolor(white)) graphregion(color(white) lwidth(large))
graph save abc "hist.png",replace
sum moneypledged impactpledged_conv,det
graph box moneypledged impactpledged_conv, name(gerpge,replace)
graph save gerpge "boxt.png",replace
log using "R1.smcl",replace
sum
reg impactpledged_conv detla_happy detla_strong detla_upset detla_active detla_proud detla_enthusiastic detla_guilty detla_ashamed risk household_income,r
reg moneypledged detla_happy detla_strong detla_upset detla_active detla_proud detla_enthusiastic detla_guilty detla_ashamed risk household_income,r
gen pledge = moneypledged
replace pledge = impactpledged_conv if pledge==.
gen type = 1 if moneypledged!=.
replace type = 2 if moneypledged==.
reg pledge i.type##c.detla_happy i.type##c.detla_strong i.type##c.detla_upset i.type##c.detla_active i.type##c.detla_proud i.type##c.detla_enthusiastic i.type##c.detla_guilty i.type##c.detla_ashamed risk household_income,r
log close
translate "R1.smcl" "R1.pdf",replace
export excel using "NEW_R1.xls", replace