Skip to content
Snippets Groups Projects
Commit 0c8db40c authored by nc71qaxa's avatar nc71qaxa
Browse files

update_presentation

parent 9e08f792
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Scripts/create_tables.R
+ 10
− 10
View file @ 0c8db40c
......@@ -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),
......
project_start.qmd
+ 50
− 54
View file @ 0c8db40c
......@@ -80,27 +80,32 @@ list_ols <- list("(Intercept)" = "Intercept", "as.factor(Treatment_A)Treated" =
![](Grafics/FlowChart.png){width="300"}
## Scenario A
## Case A
![](Grafics/FlowChart_Sce_A.png){width="300"}
## Scenario B
<!-- ## Scenario B -->
![](Grafics/FlowChart_Sce_B.png){width="300"}
<!-- ![](Grafics/FlowChart_Sce_B.png){width="300"} -->
## Scenario C
## Case B
![](Grafics/FlowChart_Sce_C.png){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.")
```
:::
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment