diff --git a/Module/Modul_07.Rmd b/Module/Modul_07.Rmd
index 8e95a133b68a08169d1c6d5e5239ddfe1b40c3f1..61d64b65c7e7729a3d50552fab7ff2c39eb4517c 100644
--- a/Module/Modul_07.Rmd
+++ b/Module/Modul_07.Rmd
@@ -40,7 +40,7 @@ DAG_Fork <- dagify(X ~ Z,
                    Y ~ X,
                    coords = co) %>% 
   ggdag() + 
-  geom_dag_point(colour = c("#0F710B", "#DA70D6","#0000FF")) + 
+  geom_dag_point(colour = c("#0F710B","#0000FF","#DA70D6")) + 
   geom_dag_text(size = 8) +
   theme_dag_blank() +
   geom_dag_edges(arrow_directed = grid::arrow(length = grid::unit(15, "pt"), type = "closed")) +
@@ -147,7 +147,7 @@ Dann gilt gemäß des Modells:
 $$\hat{\color{blue}{y}} = `r round(coef(erglm1))[1]` + `r round(coef(erglm1))[2]` \cdot \color{green}{5}= \color{blue}{`r round(coef(erglm1))[1]+  round(coef(erglm1))[2]*5`}.$$
 
 ```{r Wertsteigerung, echo=FALSE}
-message <- "Das geschätzte lineare Modell der Stichprobe bezieht sich auf die Beobachtungsdaten ($X=x$), d. h., die Steigung beschreibt die beobachtete Änderung des Mittelwertes, nicht den Effekt einer Handlung $do(X=x)$ (vgl. Modul 2)."
+message <- "Das geschätzte lineare Modell der Stichprobe bezieht sich auf die Beobachtungsdaten, also $X=x$, d. h., die Steigung beschreibt die beobachtete Änderung des Mittelwertes, nicht den Effekt einer Handlung $do(X=x)$ (vgl. Modul 2)."
 question("Erhöht eine solche Raumteilung den Preis der Immobilie im Mittel um $22573$?",
          answer("Ja"),
          answer("Nein", correct = TRUE, message = message),
diff --git a/Module/Modul_07_KI.Rmd b/Module/Modul_07_KI.Rmd
index 47cc432018cb0c75b92dc81fdb638be38d2f0676..87b3a551862714c37d24c854ff14527a4a3f151f 100644
--- a/Module/Modul_07_KI.Rmd
+++ b/Module/Modul_07_KI.Rmd
@@ -40,7 +40,7 @@ DAG_Fork <- dagify(X ~ Z,
                    Y ~ X,
                    coords = co) %>% 
   ggdag() + 
-  geom_dag_point(colour = c("#0F710B", "#DA70D6","#0000FF")) + 
+  geom_dag_point(colour = c("#0F710B","#0000FF","#DA70D6")) + 
   geom_dag_text(size = 8) +
   theme_dag_blank() +
   geom_dag_edges(arrow_directed = grid::arrow(length = grid::unit(15, "pt"), type = "closed")) +
@@ -147,7 +147,7 @@ Dann gilt gemäß des Modells:
 $$\hat{\color{blue}{y}} = `r round(coef(erglm1))[1]` + `r round(coef(erglm1))[2]` \cdot \color{green}{5}= \color{blue}{`r round(coef(erglm1))[1]+  round(coef(erglm1))[2]*5`}.$$
 
 ```{r Wertsteigerung, echo=FALSE}
-message <- "Das geschätzte lineare Modell der Stichprobe bezieht sich auf die Beobachtungsdaten ($X=x$), d. h., die Steigung beschreibt die beobachtete Änderung des Mittelwertes, nicht den Effekt einer Handlung $do(X=x)$ (vgl. Modul 2)."
+message <- "Das geschätzte lineare Modell der Stichprobe bezieht sich auf die Beobachtungsdaten, also $X=x$, d. h., die Steigung beschreibt die beobachtete Änderung des Mittelwertes, nicht den Effekt einer Handlung $do(X=x)$ (vgl. Modul 2)."
 question("Erhöht eine solche Raumteilung den Preis der Immobilie im Mittel um $22573$?",
          answer("Ja"),
          answer("Nein", correct = TRUE, message = message),