diff --git a/Module/Modul_02.Rmd b/Module/Modul_02.Rmd index 4d2bb693bbbb8d30ceab14960574ef9f2d0d464e..ef10e373f58950a0f0a7f6f6d67868b6e93f25e0 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 0a9404bd2b3cacab4a49c646ca2033272e01cddd..ecc50d900ebd1617507fbfbc8597e3eadbaf1e66 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 37303e64ebf0bfacba03429655eb002201e3b7fe..be59f6bb5e277f60b08982e484f609cb0cd55f79 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 bb88fb47b8bb505416803cc480ebaa030ff0177f..6491d6b32c8bd69c0753fdc5582e60c5314c3ef0 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) ```