Presentation

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")
 
 ##############################
 

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 -->