diff --git a/Scripts/create_tables.R b/Scripts/create_tables.R
index efb47a9d922170d970fec51c5c2f804d16fd777a..4246e505fa52dfe4d2b224029a12a74074d685dc 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),