From 0c8db40c9ab1ff2830943e02c0b6de0a002f0755 Mon Sep 17 00:00:00 2001
From: Cavallaro <nino.cavallaro@idiv.de>
Date: Tue, 12 Mar 2024 15:34:40 +0100
Subject: [PATCH] update_presentation
---
Scripts/create_tables.R | 20 ++++----
project_start.qmd | 104 +++++++++++++++++++---------------------
2 files changed, 60 insertions(+), 64 deletions(-)
diff --git a/Scripts/create_tables.R b/Scripts/create_tables.R
index 4246e50..5eab954 100644
--- a/Scripts/create_tables.R
+++ b/Scripts/create_tables.R
@@ -13,7 +13,7 @@ list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" =
# 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.model.names = c("Case A", "with Controls", "Case B", "with Controls"),
custom.header = list("Dependent Variable: Percentage of correct quiz statements" = 1:4),
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
@@ -24,7 +24,7 @@ texreg(l=list(ols_percentage_correct_A, ols_percentage_correct_control_A, ols_p
# 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.model.names = c("Case A", "with Controls", "Case B", "with Controls"),
custom.header = list("Dependent variable: Net interview time" = 1:4),
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
@@ -35,7 +35,7 @@ texreg(l=list(ols_time_spent_A, ols_time_spent_control_A, ols_time_spent_C, ol
# 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.model.names = c("Case A", "with Controls", "Case B", "with Controls"),
custom.header = list("Dependent variable: Mean choice card time" = 1:4),
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
@@ -45,7 +45,7 @@ texreg(l=list(ols_time_cc_A, ols_time_cc_control_A, ols_time_cc_C, ols_time_cc
# 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.model.names = c("Case A", "with Controls", "Case B", "with Controls"),
custom.header = list("Dependent variable: Consequentiality score" = 1:4),
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
@@ -55,7 +55,7 @@ texreg(l=list(conseq_model_A, conseq_model_control_A, conseq_model_C, conseq_mod
# 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.model.names = c("Case A", "with Controls", "Case B", "with Controls"),
custom.header = list("Dependent variable: Number of opt-out choices" = 1:4),
custom.coef.map = list_ols, stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
@@ -106,7 +106,7 @@ texreg(c(case_A_cols[1], remGOF(case_A_cols[2:4])),
custom.coef.map = list("natural" = "Naturalness", "walking" = "Walking Distance", "rent" = "Rent",
"ASC_sq" = "ASC SQ", "_natural" = "Naturalness", "nat" = "Naturalness",
"wd" = "Walking Distance", "asc" = "ASC SQ"),
- custom.model.names = c("Mean", "SD", "Treated", "Voluntary Treated"), custom.note = "%stars. Standard errors in parentheses.",
+ custom.model.names = c("Mean", "SD", "Treated", "Voluntary Treated"), custom.note = "%stars. Robust 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.",
@@ -128,10 +128,10 @@ texreg(c(case_C_cols[1], remGOF(case_C_cols[2:7])),
"ASC_sq" = "ASC SQ", "_natural" = "Naturalness", "nat" = "Naturalness",
"wd" = "Walking Distance", "asc" = "ASC SQ",
"ASC_sq_info" = "ASC SQ", "rent_info" = "Rent", "nat_info" = "Naturalness", "walking_info" = "Walking Distance"),
- custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info"), custom.note = "%stars. Standard errors in parentheses.",
+ custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info"), custom.note = "%stars. Robust 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.",
+ caption = "Results of mixed logit model with treatment interactions for Case B.",
file="Tables/mxl/case_C_rent_INT.tex")
### Rent NR model case C
@@ -150,10 +150,10 @@ texreg(c(case_C_cols_NR[1], remGOF(case_C_cols_NR[2:8])),
"ASC_sq" = "ASC SQ", "_natural" = "Naturalness", "nat" = "Naturalness",
"wd" = "Walking Distance", "asc" = "ASC SQ",
"ASC_sq_info" = "ASC SQ", "rent_info" = "Rent", "nat_info" = "Naturalness", "walking_info" = "Walking Distance"),
- custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info", "NR"), custom.note = "%stars. Standard errors in parentheses.",
+ custom.model.names = c("Mean", "SD", "Video 1", "Video 2", "Text 1", "Text 2", "No Info", "NR"), custom.note = "%stars. Robust 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.",
+ caption = "Results of mixed logit model with treatment and NR-index interactions for Case B.",
file="Tables/mxl/case_C_rent_INT_NR.tex")
# Main model
# texreg(l=list(mxl_wtp_case_a_rentINT),
diff --git a/project_start.qmd b/project_start.qmd
index c21046c..fe8670c 100644
--- a/project_start.qmd
+++ b/project_start.qmd
@@ -80,27 +80,32 @@ list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" =
{width="300"}
-## Scenario A
+## Case A
{width="300"}
-## Scenario B
+<!-- ## Scenario B -->
-{width="300"}
+<!-- {width="300"} -->
-## Scenario C
+## Case B
{width="300"}
-## Hypotheses
-- H1:
+## Methods
-- H2:
+- Logit regression (voluntary information access):
-## Methods
+```{=tex}
+\begin{equation}
+ Y = \beta_0 + \beta_{Control} \cdot v_{Control} + \epsilon
+ \label{simple_logit}
+\end{equation}
+```
-- OLS and Logit regressions:
+
+- OLS regression (survey engagement):
```{=tex}
\begin{equation}
@@ -108,6 +113,7 @@ list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" =
\label{ols}
\end{equation}
```
+
- Mixed logit model with interactions in WTP space:
```{=tex}
@@ -126,7 +132,7 @@ list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" =
kableExtra::kable(treatment_socio_A)
```
-### Case C
+### Case B
```{r}
kableExtra::kable(treatment_socio_C)
@@ -154,7 +160,8 @@ htmlreg(l=list(nr_model_treat_A), single.row = TRUE,
"Naturalness_SQ" = "Naturalness SQ", "WalkingDistance_SQ" = "Walking Distance SQ"),
stars = c(0.01, 0.05, 0.1), float.pos="tb",
custom.note = "%stars. Standard errors in parentheses.",
- label = "tab:nr_ols")
+ label = "tab:nr_ols",
+ caption = "Results of OLS on the NR-index.")
```
:::
@@ -168,7 +175,8 @@ htmlreg(l=list(logit_choice_treat_uni), stars = c(0.01, 0.05, 0.1), float.pos="t
custom.model.names = c("Logit regression"),
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", single.row = TRUE)
+ label = "tab:logit_vt", single.row = TRUE,
+ caption = "Results of logit regression on access of optional information.")
```
@@ -177,19 +185,14 @@ htmlreg(l=list(logit_choice_treat_uni), stars = c(0.01, 0.05, 0.1), float.pos="t
## Engagement: Interview Time
::: panel-tabset
-### Scenario A
+### Case A
```{r}
bxplt_interview_time_A
```
-### Scenario B
-
-```{r}
-bxplt_interview_time_B
-```
-### Scenario C
+### Case B
```{r}
bxplt_interview_time_C
@@ -201,30 +204,26 @@ bxplt_interview_time_C
::: {style="font-size: 60%;"}
```{r, results='asis'}
htmlreg(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 B", "with Controls"),
custom.header = list("Dependent variable: Net interview time" = 1:4),
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", single.row = TRUE)
+ label = "tab:net_int", single.row = TRUE,
+ caption = "Results of OLS on net interview time.")
```
:::
## Engagement: Choice Card time
::: panel-tabset
-### Scenario A
+### Case A
```{r}
bxplt_cc_time_A
```
-### Scenario B
-
-```{r}
-bxplt_cc_time_B
-```
-### Scenario C
+### Case B
```{r}
bxplt_cc_time_C
@@ -236,30 +235,26 @@ bxplt_cc_time_C
::: {style="font-size: 60%;"}
```{r, results='asis'}
htmlreg(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 B", "with Controls"),
custom.header = list("Dependent variable: Mean choice card time" = 1:4),
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", single.row = TRUE)
+ label = "tab:cctime", single.row = TRUE,
+ caption = "Results of OLS on mean choice card time.")
```
:::
## Manipulation check
::: panel-tabset
-### Group A
+### Case A
```{r}
bxplt_quiz_A
```
-### Group B
-
-```{r}
-bxplt_quiz_B
-```
-### Group C
+### Case B
```{r}
bxplt_quiz_C
@@ -271,11 +266,12 @@ bxplt_quiz_C
::: {style="font-size: 60%;"}
```{r, results='asis'}
htmlreg(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 B", "with Controls"),
custom.header = list("Dependent Variable: Percentage of correct quiz statements" = 1:4),
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", single.row = TRUE)
+ label = "tab:mani", single.row = TRUE,
+ caption = "Results of OLS on percentage of correct quiz statements.")
```
:::
@@ -296,30 +292,26 @@ htmlreg(l=list(ols_percentage_correct_A, ols_percentage_correct_control_A, ols_
::: {style="font-size: 60%;"}
```{r, results='asis'}
htmlreg(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 B", "with Controls"),
custom.header = list("Dependent variable: Consequentiality score" = 1:4),
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", single.row = TRUE)
+ label = "tab:conseq", single.row = TRUE,
+ caption = "Results of OLS on consequentiality score.")
```
:::
## Opt Out
::: panel-tabset
-### Group A
+### Case A
```{r}
bxplt_opt_A
```
-### Group B
-
-```{r}
-bxplt_opt_B
-```
-### Group C
+### Case B
```{r}
bxplt_opt_C
@@ -331,11 +323,12 @@ bxplt_opt_C
::: {style="font-size: 60%;"}
```{r, results='asis'}
htmlreg(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 B", "with Controls"),
custom.header = list("Dependent variable: Number of opt-out choices" = 1:4),
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", single.row = TRUE)
+ label = "tab:optout", single.row = TRUE,
+ caption = "Results of OLS on number of opt-out choices.")
```
:::
@@ -365,10 +358,11 @@ htmlreg(c(case_A_cols[1], remGOF(case_A_cols[2:4])),
"wd" = "Walking Distance", "asc" = "ASC SQ"),
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")
+ label = "tab:mxl_A",
+ caption = "Results of mixed logit model with treatment interactions for Case A.")
```
-### Case C
+### Case B
```{r, results='asis'}
htmlreg(c(case_C_cols[1], remGOF(case_C_cols[2:7])),
@@ -378,7 +372,8 @@ htmlreg(c(case_C_cols[1], remGOF(case_C_cols[2:7])),
"ASC_sq_info" = "ASC SQ", "rent_info" = "Rent", "nat_info" = "Naturalness", "walking_info" = "Walking Distance"),
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")
+ label = "tab:mxl_C",
+ caption = "Results of mixed logit model with treatment interactions for Case B.")
```
:::
:::
@@ -398,7 +393,8 @@ htmlreg(c(case_C_cols_NR[1], remGOF(case_C_cols_NR[2:8])),
"ASC_sq_info" = "ASC SQ", "rent_info" = "Rent", "nat_info" = "Naturalness", "walking_info" = "Walking Distance"),
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")
+ label = "tab:mxl_NR",
+ caption = "Results of mixed logit model with treatment and NR-index interactions for Case B.")
```
:::
--
GitLab