diff --git a/Scripts/create_tables.R b/Scripts/create_tables.R
index 1ab224dedd53a575c7c7a5a9c2bae82bfe88d2aa..89d85274b4ea1aceec9aa10641b8528c065403bb 100644
--- a/Scripts/create_tables.R
+++ b/Scripts/create_tables.R
@@ -1,57 +1,45 @@
dir.create("Tables/mxl")
+
+list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
+ "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "Text 1",
+ "as.factor(Treatment_C)No Video 2" = "Text 2", "as.factor(Treatment_C)Video 1" = "Video 1",
+ "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
+ "Age_mean" = "Age", "QFIncome" = "Income", "Uni_degree" = "Higher Education")
+
# Manipulation check
texreg(l=list(ols_percentage_correct_A, ols_percentage_correct_control_A, ols_percentage_correct_C, ols_percentage_correct_control_C),
custom.model.names = c("Case A", "with Controls", "Case C", "with Controls"),
- custom.coef.map = list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
- "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "No Video 1",
- "as.factor(Treatment_C)No Video 2" = "No Video 2", "as.factor(Treatment_C)Video 1" = "Video 1",
- "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
- "Age_mean" = "Age", "QFIncome" = "Income"), stars = c(0.01, 0.05, 0.1),
+ custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
file="Tables/ols/manipulation.tex")
# Net interview time
texreg(l=list(ols_time_spent_A, ols_time_spent_control_A, ols_time_spent_C, ols_time_spent_control_C),
custom.model.names = c("Case A", "with Controls", "Case C", "with Controls"),
- custom.coef.map = list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
- "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "No Video 1",
- "as.factor(Treatment_C)No Video 2" = "No Video 2", "as.factor(Treatment_C)Video 1" = "Video 1",
- "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
- "Age_mean" = "Age", "QFIncome" = "Income"), stars = c(0.01, 0.05, 0.1),
+ custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
file="Tables/ols/interviewtime.tex")
# CC Time
texreg(l=list(ols_time_cc_A, ols_time_cc_control_A, ols_time_cc_C, ols_time_cc_control_C),
custom.model.names = c("Case A", "with Controls", "Case C", "with Controls"),
- custom.coef.map = list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
- "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "No Video 1",
- "as.factor(Treatment_C)No Video 2" = "No Video 2", "as.factor(Treatment_C)Video 1" = "Video 1",
- "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
- "Age_mean" = "Age", "QFIncome" = "Income"), stars = c(0.01, 0.05, 0.1),
+ custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
file="Tables/ols/cctime.tex")
# Consequentiality
texreg(l=list(conseq_model_A, conseq_model_control_A, conseq_model_C, conseq_model_control_C),
custom.model.names = c("Case A", "with Controls", "Case C", "with Controls"),
- custom.coef.map = list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
- "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "No Video 1",
- "as.factor(Treatment_C)No Video 2" = "No Video 2", "as.factor(Treatment_C)Video 1" = "Video 1",
- "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
- "Age_mean" = "Age", "QFIncome" = "Income"), stars = c(0.01, 0.05, 0.1),
+ custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
file="Tables/ols/consequentiality.tex")
# Opt Out
texreg(l=list(ols_opt_out_A, ols_opt_out_control_A, ols_opt_out_C, ols_opt_out_control_C),
custom.model.names = c("Case A", "with Controls", "Case C", "with Controls"),
- custom.coef.map = list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" = "Treated", "as.factor(Treatment_A)Vol_Treated" = "Vol. Treated",
- "as.factor(Treatment_C)No Info 2" = "No Info 2", "as.factor(Treatment_C)No Video 1" = "No Video 1",
- "as.factor(Treatment_C)No Video 2" = "No Video 2", "as.factor(Treatment_C)Video 1" = "Video 1",
- "as.factor(Treatment_C)Video 2" = "Video 2", "Z_Mean_NR" = "NR-Index", "as.factor(Gender)2" = "Female",
- "Age_mean" = "Age", "QFIncome" = "Income"), stars = c(0.01, 0.05, 0.1),
+ custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
file="Tables/ols/optout.tex")
+##### MXL #######
# Main model
texreg(l=list(mxl_wtp_case_a_rentINT),