From 23ebddd5bdff18e5f5f0e3532d21cdcc7c376c5a Mon Sep 17 00:00:00 2001
From: Johannes Keyser <johannes.keyser@sport.uni-giessen.de>
Date: Tue, 19 Mar 2024 17:36:10 +0100
Subject: [PATCH] Angleichen der Modulvarianten 01, 09, 11
---
Module/Modul_01_KI.Rmd | 2 +-
Module/Modul_09.Rmd | 2 +-
Module/Modul_11.Rmd | 4 ++--
Module/Modul_11_KI.Rmd | 2 +-
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/Module/Modul_01_KI.Rmd b/Module/Modul_01_KI.Rmd
index 30bb6fc..b392cd8 100644
--- a/Module/Modul_01_KI.Rmd
+++ b/Module/Modul_01_KI.Rmd
@@ -329,7 +329,7 @@ Der naive Vergleich der Mittelwerte überschätzt hier den wahren durchschnittli
Erstere hätten aber so oder so, also unabhängig von der Schulung, ein höheres Gehalt erhalten. Hier sind unterschiedliche inhaltliche Erklärungen denkbar (z.B. ein höheres Interesse am Gehalt und damit auch ein anderes Auftreten in Gehaltsverhandlungen).
-Kontrollieren Sie diese Aussage, indem Sie den Code so abändern, dass Sie die Mittelwerte der Potential Outcomes berechnen. Diese befinden sich im gleichen Datensatz und tragen die Namen `gehalt0` und `gehalt1`:
+Kontrollieren Sie diese Aussage, indem Sie den Code so abändern, dass Sie die Mittelwerte der, auch unbeobachteten, Potential Outcomes berechnen. Diese befinden sich in der gleichen Datentabelle und tragen die Namen `gehalt0` und `gehalt1`:
*Tipp*: Einen Lösungshinweis erhalten Sie über den `Hinweise`-Button über dem R Code. Anschließend `Nächster Tipp` und Sie sehen die Lösung.
diff --git a/Module/Modul_09.Rmd b/Module/Modul_09.Rmd
index be59f6b..eb3c919 100644
--- a/Module/Modul_09.Rmd
+++ b/Module/Modul_09.Rmd
@@ -54,7 +54,7 @@ DAG2 <- dagify(Y~ X,
coords = co) %>%
ggdag() +
geom_dag_point(colour = c( "darkgrey", "darkgrey","#0F710B", "#0000FF")) +
- geom_dag_text(size = 8, label = c(expression(U[X]), expression(U[Y]), "X", "Y"), parse = TRUE) +
+ geom_dag_text(size = 8, label = c(expression(U[X]), expression(U[Y]), "X", "Y"), parse = TRUE) +
theme_dag_blank() +
geom_dag_edges(arrow_directed = grid::arrow(length = grid::unit(15, "pt"), type = "closed"))
```
diff --git a/Module/Modul_11.Rmd b/Module/Modul_11.Rmd
index d0411fa..f2f1ef0 100644
--- a/Module/Modul_11.Rmd
+++ b/Module/Modul_11.Rmd
@@ -115,7 +115,7 @@ library(mosaic)
# Daten einlesen, siehe https://doi.org/10.1080/10691898.2005.11910559
LV <- read.table("http://jse.amstat.org/datasets/fev.dat.txt",
col.names = c("Alter", "Lungenvolumen", "Groesse", "Geschlecht", "RaucherIn"))
-# Variablen umkodieren bzw. umrechnen
+# Variablen umkodieren und umrechnen
LV <- LV %>%
mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w",
Geschlecht == 1 ~ "m"),
@@ -226,7 +226,7 @@ lm(Lungenvolumen ~ RaucherIn, data = LV) %>%
summary()
```
-Raucher:innen haben *scheinbar* ein höheres Lungenvolumen:
+Nicht-Raucher:innen haben *scheinbar* ein geringeres Lungenvolumen:
$$\widehat{\text{Lungenvolumen}} = 3.28 - 0.71 \cdot \begin{cases} 1 &: \text{RaucherIn = Nein} \\ 0&: \text{sonst} \end{cases}$$
diff --git a/Module/Modul_11_KI.Rmd b/Module/Modul_11_KI.Rmd
index 4c678ec..41609ed 100644
--- a/Module/Modul_11_KI.Rmd
+++ b/Module/Modul_11_KI.Rmd
@@ -228,7 +228,7 @@ lm(Lungenvolumen ~ RaucherIn, data = LV) %>%
Nicht-Raucher:innen haben *scheinbar* ein geringeres Lungenvolumen:
-$$\widehat{\text{Lungenvolumen}} = 3.28 - 0.71 \cdot \begin{cases} 1 &: \text{RaucherIn = Nein} \\ 0&: \text{sonst} \end{cases}$$
+$$\widehat{\text{Lungenvolumen}} = 3.28 - 0.71 \cdot \begin{cases} 1 &: \text{RaucherIn = Nein} \\ 0&: \text{sonst} \end{cases}$$
##
--
GitLab