From fcfcb8e0236199d4fb9f360a8b7eef670780e75a Mon Sep 17 00:00:00 2001
From: luebby <karsten@statistix.org>
Date: Thu, 24 Mar 2022 13:25:13 +0100
Subject: [PATCH] Einheit nach letzten Commit wieder gerade ziehen.
---
Module/Modul_11.Rmd | 13 ++++++-------
Module/Modul_11_KI.Rmd | 10 ++++++----
2 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/Module/Modul_11.Rmd b/Module/Modul_11.Rmd
index 6ca960b..683d1b1 100644
--- a/Module/Modul_11.Rmd
+++ b/Module/Modul_11.Rmd
@@ -52,7 +52,8 @@ LV <- LV %>%
mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w",
Geschlecht == 1 ~ "m"),
RaucherIn = case_when(RaucherIn == 0 ~ "nein",
- RaucherIn == 1 ~ "ja"))
+ RaucherIn == 1 ~ "ja")) %>%
+ mutate(Groesse = Groesse * 2.54)
p1 <- DiagrammeR::grViz("
@@ -111,24 +112,22 @@ Vorbereitungen der Analyse mit `R`:
```{r str}
# Paket laden
library(mosaic)
-# Daten einlesen
+# 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
+# Variablen umkodieren bzw. umrechnen
LV <- LV %>%
mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w",
Geschlecht == 1 ~ "m"),
RaucherIn = case_when(RaucherIn == 0 ~ "nein",
- RaucherIn == 1 ~ "ja"))
+ RaucherIn == 1 ~ "ja")) %>%
+ mutate(Groesse = Groesse * 2.54)
# Datenstruktur
str(LV)
```
Die Datentabelle `LV` enthält $n=`r nrow(LV)`$ Beobachtungsdaten mit den $`r ncol(LV)`$ Variablen:
-
-mit den Variablen:
-
- `Alter`: Alter in Jahren
- `Lungenvolumen`: forcierte exspiratorische Volumen in l
- `Groesse`: Größe in cm
diff --git a/Module/Modul_11_KI.Rmd b/Module/Modul_11_KI.Rmd
index e06f90b..c0147ae 100644
--- a/Module/Modul_11_KI.Rmd
+++ b/Module/Modul_11_KI.Rmd
@@ -52,7 +52,8 @@ LV <- LV %>%
mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w",
Geschlecht == 1 ~ "m"),
RaucherIn = case_when(RaucherIn == 0 ~ "nein",
- RaucherIn == 1 ~ "ja"))
+ RaucherIn == 1 ~ "ja")) %>%
+ mutate(Groesse = Groesse * 2.54)
p1 <- DiagrammeR::grViz("
@@ -111,15 +112,16 @@ Vorbereitungen der Analyse mit `R`:
```{r str}
# Paket laden
library(mosaic)
-# Daten einlesen
+# 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
+# Variablen umkodieren und umrechnen
LV <- LV %>%
mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w",
Geschlecht == 1 ~ "m"),
RaucherIn = case_when(RaucherIn == 0 ~ "nein",
- RaucherIn == 1 ~ "ja"))
+ RaucherIn == 1 ~ "ja")) %>%
+ mutate(Groesse = Groesse * 2.54)
# Datenstruktur
str(LV)
```
--
GitLab