From a14f0e0e80d6abdd8a8a183a48a25408e19e4f51 Mon Sep 17 00:00:00 2001
From: Cavallaro <nino.cavallaro@idiv.de>
Date: Mon, 11 Mar 2024 11:29:27 +0100
Subject: [PATCH] table_captions
---
Scripts/create_tables.R | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/Scripts/create_tables.R b/Scripts/create_tables.R
index efb47a9..4246e50 100644
--- a/Scripts/create_tables.R
+++ b/Scripts/create_tables.R
@@ -18,6 +18,7 @@ texreg(l=list(ols_percentage_correct_A, ols_percentage_correct_control_A, ols_p
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:mani",
+ caption = "Results of OLS on percentage of correct quiz statements.",
file="Tables/ols/manipulation.tex")
@@ -28,6 +29,7 @@ texreg(l=list(ols_time_spent_A, ols_time_spent_control_A, ols_time_spent_C, ol
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:net_int",
+ caption = "Results of OLS on net interview time.",
file="Tables/ols/interviewtime.tex")
@@ -38,6 +40,7 @@ texreg(l=list(ols_time_cc_A, ols_time_cc_control_A, ols_time_cc_C, ols_time_cc
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:cctime",
+ caption = "Results of OLS on mean choice card time.",
file="Tables/ols/cctime.tex")
# Consequentiality
@@ -47,6 +50,7 @@ texreg(l=list(conseq_model_A, conseq_model_control_A, conseq_model_C, conseq_mod
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:conseq",
+ caption = "Results of OLS on consequentiality score.",
file="Tables/ols/consequentiality.tex")
# Opt Out
@@ -56,6 +60,7 @@ texreg(l=list(ols_opt_out_A, ols_opt_out_control_A, ols_opt_out_C, ols_opt_out_c
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:optout",
+ caption = "Results of OLS on number of opt-out choices.",
file="Tables/ols/optout.tex")
# NR
@@ -71,6 +76,7 @@ texreg(l=list(nr_model_treat_A),
stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
label = "tab:nr_ols",
+ caption = "Results of OLS on the NR-index.",
file="Tables/ols/nr_ols.tex")
#### Logit #####
@@ -80,6 +86,7 @@ texreg(l=list(logit_choice_treat_uni), stars = c(0.01, 0.05, 0.1), float.pos="tb
custom.header = list("Dependent variable: Voluntary Information Access" = 1),
custom.coef.map = list_ols, custom.note = "%stars. Standard errors in parentheses.",
label = "tab:logit_vt",
+ caption = "Results of logit regression on the access of optional information.",
file="Tables/logit/chose_treatment.tex")
@@ -102,6 +109,7 @@ texreg(c(case_A_cols[1], remGOF(case_A_cols[2:4])),
custom.model.names = c("Mean", "SD", "Treated", "Voluntary Treated"), custom.note = "%stars. Standard errors in parentheses.",
stars = c(0.01, 0.05, 0.1), float.pos="tb",
label = "tab:mxl_A",
+ caption = "Results of mixed logit model with treatment interactions for Case A.",
file="Tables/mxl/case_A_rent_INT.tex")
### Baseline case C
@@ -123,6 +131,7 @@ texreg(c(case_C_cols[1], remGOF(case_C_cols[2:7])),
custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info"), custom.note = "%stars. Standard errors in parentheses.",
stars = c(0.01, 0.05, 0.1), float.pos="tb",
label = "tab:mxl_C",
+ caption = "Results of mixed logit model with treatment interactions for Case C.",
file="Tables/mxl/case_C_rent_INT.tex")
### Rent NR model case C
@@ -144,6 +153,7 @@ texreg(c(case_C_cols_NR[1], remGOF(case_C_cols_NR[2:8])),
custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info", "NR"), custom.note = "%stars. Standard errors in parentheses.",
stars = c(0.01, 0.05, 0.1), float.pos="tb",
label = "tab:mxl_NR",
+ caption = "Results of mixed logit model with treatment and NR-index interactions for Case C.",
file="Tables/mxl/case_C_rent_INT_NR.tex")
# Main model
# texreg(l=list(mxl_wtp_case_a_rentINT),
--
GitLab