diff --git a/Module/Modul_01_KI.Rmd b/Module/Modul_01_KI.Rmd
index 30bb6fc12a8cba78ac1093f745f7115f505eded3..b392cd8935f2cc9523ac01c08a6b29f0ba6d743e 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 be59f6bb5e277f60b08982e484f609cb0cd55f79..eb3c91977d9e4a39511440fbaff929b34cb69f91 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 d0411fa1c59cb5b755c56dda3c2c377cbd4194c4..f2f1ef061b3938129e19f6b9b7ca166ec8cadfea 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 4c678ec6028d4d424e8e72036e63b9b4c602d1ad..41609ed8aae47ff2b9163dfaef6a2d49ee1ad2ea 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}$$
 
 ##