From d9e72f16b1547f7ea728e3c3cb877ae248cda7d9 Mon Sep 17 00:00:00 2001
From: Cavallaro <nino.cavallaro@idiv.de>
Date: Thu, 7 Mar 2024 11:10:00 +0100
Subject: [PATCH] Presentation
---
Scripts/MAKE_FILE.R | 8 +++++
project_start.qmd | 88 ++++++++++++++++++++++++++++++++++++++++++---
2 files changed, 91 insertions(+), 5 deletions(-)
diff --git a/Scripts/MAKE_FILE.R b/Scripts/MAKE_FILE.R
index 1f4f98d..52a9683 100644
--- a/Scripts/MAKE_FILE.R
+++ b/Scripts/MAKE_FILE.R
@@ -79,6 +79,14 @@ mxl_wtp_case_a_rentINT <- apollo_loadModel("Estimation_results/mxl/MXL_wtp Case
mxl_wtp_case_b_rentINT <- apollo_loadModel("Estimation_results/mxl/MXL_wtp Case B Rent Int")
mxl_wtp_case_c_rentINT <- apollo_loadModel("Estimation_results/mxl/MXL_wtp_Case_C Rent INT")
+# rent interactions models NR
+
+mxl_wtp_NR_case_a_rentINT <- apollo_loadModel("Estimation_results/mxl/MXL_wtp NR A Rent INT")
+mxl_wtp_NR_case_c_rentINT <- apollo_loadModel("Estimation_results/mxl/MXL_wtp_NR_Case_C RENT INT")
+
+# Alternative case
+
+case_d <- apollo_loadModel("Estimation_results/mxl/MXL_wtp Case D Rent Int")
##############################
diff --git a/project_start.qmd b/project_start.qmd
index 5c7277d..d73d64f 100644
--- a/project_start.qmd
+++ b/project_start.qmd
@@ -5,7 +5,7 @@ title-slide-attributes:
data-background-image: Grafics/iDiv_logo_item.png
data-background-size: contain
data-background-opacity: "0.2"
-author: "Nino & Fabian"
+author: "Nino Cavallaro, Fabian Marder, Julian Sagebiel"
institute: German Centre for Integrative Biodiversity Research (iDiv) Halle-Jena-Leipzig
date: today
date-format: long
@@ -132,12 +132,29 @@ summary(nr_model_treat_A)
## Logit Regression: Who choses treatment?
+::: {style="font-size: 50%;"}
+
Characteristics of the voluntarily treated persons
-```{r}
-summary(logit_choice_treat_uni)
+
+```{r, results='asis'}
+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" = "University Degree")
+
+htmlreg(l=list(logit_choice_treat_uni), stars = c(0.01, 0.05, 0.1), float.pos="tb",
+ 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")
+
+
```
+:::
+
<!-- ## Logit Regression: "Protest voting" -->
<!-- Does treatment affect "protest" voting? -->
@@ -467,6 +484,40 @@ ggplot(data=mxl_melt_info, aes(x=Coefficent, y=abs(value), fill=variable)) +
theme(legend.position = c(0.85, 0.8))
```
+## MXL: Paper Table
+
+::: {style="font-size: 60%;"}
+
+::: panel-tabset
+
+### Case A
+```{r, results='asis'}
+htmlreg(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.",
+ stars = c(0.01, 0.05, 0.1), float.pos="tb",
+ label = "tab:mxl_A")
+```
+
+### Case C
+
+```{r, results='asis'}
+htmlreg(c(case_C_cols[1], remGOF(case_C_cols[2:7])),
+ 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",
+ "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")
+```
+
+:::
+
+:::
+
## MXL: WTP space
::: panel-tabset
@@ -521,9 +572,29 @@ summary(mxl_wtp_case_c_rentINT)
<!-- ::: -->
-## MXL: WTP space
+## MXL: WTP space with NR index (new)
+
+
+
+::: panel-tabset
+### Scenario A
+
+```{r}
+summary(mxl_wtp_NR_case_a_rentINT)
+```
+
+
+### Scenario C
+
+```{r}
+summary(mxl_wtp_NR_case_c_rentINT)
+```
+:::
+
+
+## MXL: WTP space with NR index (old)
+
-with NR index
::: panel-tabset
### Scenario A
@@ -545,6 +616,13 @@ summary(mxl_wtp_case_c_NR)
```
:::
+## Case D
+
+```{r}
+summary(case_d)
+```
+
+
<!-- ## MXL: WTP space -->
<!-- ::: panel-tabset -->
--
GitLab