From 2d6ebd8b11b38898f5ec7e5050ba97ccda0d0d6d Mon Sep 17 00:00:00 2001
From: luebby <karsten@statistix.org>
Date: Mon, 4 Apr 2022 09:03:20 +0200
Subject: [PATCH] Korrekte Darstellung von U_X und U_Y im DAG. Danke @MGehrke
---
Module/Modul_02.Rmd | 6 +++---
Module/Modul_02_KI.Rmd | 7 ++++---
Module/Modul_09.Rmd | 4 ++--
Module/Modul_09_KI.Rmd | 4 ++--
4 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/Module/Modul_02.Rmd b/Module/Modul_02.Rmd
index 4d2bb69..ef10e37 100644
--- a/Module/Modul_02.Rmd
+++ b/Module/Modul_02.Rmd
@@ -72,12 +72,12 @@ DAG2 <- dagify(Y~ X,
coords = co) %>%
ggdag() +
geom_dag_point(colour = c( "darkgrey", "darkgrey","#0F710B", "#0000FF")) +
- geom_dag_text(size = 5) +
+ geom_dag_text(size = 7, 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")) +
geom_text(label = "X - Tablette\nY - Schmerzrückgang",
hjust = 1, vjust = 2,
- x = 1, y = 0, size = 7, color = "darkgrey")
+ x = 1, y = 1, size = 7, color = "darkgrey")
# Funktionen für Beispiel
@@ -334,7 +334,7 @@ Wir gehen an dieser Stelle davon aus, dass $U_{\color{green}{X}}$ und $U_{\color
Diese sogenannten Fehler könnten in den Graphen mit aufgenommen werden, werden aber häufig aus Gründen der Übersichtlichkeit weggelassen.
-```{r DAG2, echo=FALSE, fig.align='center', out.width='60%'}
+```{r DAG2, echo=FALSE, fig.align='center', out.width='60%', warning=FALSE}
plot(DAG2)
```
diff --git a/Module/Modul_02_KI.Rmd b/Module/Modul_02_KI.Rmd
index 0a9404b..ecc50d9 100644
--- a/Module/Modul_02_KI.Rmd
+++ b/Module/Modul_02_KI.Rmd
@@ -72,12 +72,13 @@ DAG2 <- dagify(Y~ X,
coords = co) %>%
ggdag() +
geom_dag_point(colour = c( "darkgrey", "darkgrey","#0F710B", "#0000FF")) +
- geom_dag_text(size = 5) +
+ geom_dag_text(size = 7, 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")) +
geom_text(label = "X - Tablette\nY - Schmerzrückgang",
hjust = 1, vjust = 2,
- x = 1, y = 0, size = 7, color = "darkgrey")
+ x = 1, y = 1, size = 7, color = "darkgrey")
+
# Funktionen für Beispiel
@@ -334,7 +335,7 @@ Wir gehen an dieser Stelle davon aus, dass $U_{\color{green}{X}}$ und $U_{\color
Diese sogenannten Fehler könnten in den Graphen mit aufgenommen werden, werden aber häufig aus Gründen der Übersichtlichkeit weggelassen.
-```{r DAG2, echo=FALSE, fig.align='center', out.width='60%'}
+```{r DAG2, echo=FALSE, fig.align='center', out.width='60%', warning=FALSE}
plot(DAG2)
```
diff --git a/Module/Modul_09.Rmd b/Module/Modul_09.Rmd
index 37303e6..be59f6b 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) +
+ 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"))
```
@@ -152,7 +152,7 @@ Das **kausale Modell** des Graphen $\color{green}{X} \rightarrow \color{blue}{Y
Inklusive der externen Faktoren $U_{\color{green}{X}}$ und $U_{\color{blue}{Y}}$ sieht das kausale Diagram wie folgt aus:
-```{r DAG2, echo=FALSE, fig.align='center', out.width='60%'}
+```{r DAG2, echo=FALSE, fig.align='center', out.width='60%', warning=FALSE}
plot(DAG2)
```
diff --git a/Module/Modul_09_KI.Rmd b/Module/Modul_09_KI.Rmd
index bb88fb4..6491d6b 100644
--- a/Module/Modul_09_KI.Rmd
+++ b/Module/Modul_09_KI.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) +
+ 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"))
```
@@ -152,7 +152,7 @@ Das **kausale Modell** des Graphen $\color{green}{X} \rightarrow \color{blue}{Y
Inklusive der externen Faktoren $U_{\color{green}{X}}$ und $U_{\color{blue}{Y}}$ sieht das kausale Diagram wie folgt aus:
-```{r DAG2, echo=FALSE, fig.align='center', out.width='60%'}
+```{r DAG2, echo=FALSE, fig.align='center', out.width='60%', warning=FALSE}
plot(DAG2)
```
--
GitLab