Skip to content
Snippets Groups Projects
Commit 29169936 authored by Cavallaro's avatar Cavallaro
Browse files

Adjust tables

parent d053d915
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 13 additions and 25 deletions
Scripts/create_tables.R
+ 13
− 25
View file @ 29169936
dir.create("Tables/mxl") 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 # Manipulation check
texreg(l=list(ols_percentage_correct_A, ols_percentage_correct_control_A, ols_percentage_correct_C, ols_percentage_correct_control_C), 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.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", custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
"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),
file="Tables/ols/manipulation.tex") file="Tables/ols/manipulation.tex")
# Net interview time # Net interview time
texreg(l=list(ols_time_spent_A, ols_time_spent_control_A, ols_time_spent_C, ols_time_spent_control_C), 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.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", custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
"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),
file="Tables/ols/interviewtime.tex") file="Tables/ols/interviewtime.tex")
# CC Time # CC Time
texreg(l=list(ols_time_cc_A, ols_time_cc_control_A, ols_time_cc_C, ols_time_cc_control_C), 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.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", custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
"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),
file="Tables/ols/cctime.tex") file="Tables/ols/cctime.tex")
# Consequentiality # Consequentiality
texreg(l=list(conseq_model_A, conseq_model_control_A, conseq_model_C, conseq_model_control_C), 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.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", custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
"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),
file="Tables/ols/consequentiality.tex") file="Tables/ols/consequentiality.tex")
# Opt Out # Opt Out
texreg(l=list(ols_opt_out_A, ols_opt_out_control_A, ols_opt_out_C, ols_opt_out_control_C), 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.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", custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1),
"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),
file="Tables/ols/optout.tex") file="Tables/ols/optout.tex")
##### MXL #######
# Main model # Main model
texreg(l=list(mxl_wtp_case_a_rentINT), texreg(l=list(mxl_wtp_case_a_rentINT),
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment