diff --git a/Module/Modul_11.Rmd b/Module/Modul_11.Rmd index 6ca960bdafa3a1330defc7ed77c4463fe5bf6e47..683d1b1145a8fc9ef483086c4800eed798c68605 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 e06f90b78762ec3de45d5c7a79e14d8e5608f843..c0147ae99cba41221ebfac9a2f82cc94148b4a3e 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) ```