diff --git a/Module/Modul_11.Rmd b/Module/Modul_11.Rmd index 30a1e0026f3cd3bdf7cbc1756e08970a7250a75b..6ca960bdafa3a1330defc7ed77c4463fe5bf6e47 100644 --- a/Module/Modul_11.Rmd +++ b/Module/Modul_11.Rmd @@ -44,7 +44,16 @@ library(learnr) library(mosaic) library(DT) -load("data/LV.Rdata") +# load("data/LV.Rdata") + +LV <- read.table("http://jse.amstat.org/datasets/fev.dat.txt", + col.names = c("Alter", "Lungenvolumen", "Groesse", "Geschlecht", "RaucherIn")) +LV <- LV %>% + mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w", + Geschlecht == 1 ~ "m"), + RaucherIn = case_when(RaucherIn == 0 ~ "nein", + RaucherIn == 1 ~ "ja")) + p1 <- DiagrammeR::grViz(" digraph { @@ -96,12 +105,28 @@ question("Ist hier ein randomisiertes Experiment ethisch vertretbar?", ## -Die hier verwendete Datentabelle `LV` enthält Beobachtungsdaten und hat folgende Struktur: + +Vorbereitungen der Analyse mit `R`: ```{r str} +# Paket laden +library(mosaic) +# Daten einlesen +LV <- read.table("http://jse.amstat.org/datasets/fev.dat.txt", + col.names = c("Alter", "Lungenvolumen", "Groesse", "Geschlecht", "RaucherIn")) +# Variablen umkodieren +LV <- LV %>% + mutate(Geschlecht = case_when(Geschlecht == 0 ~ "w", + Geschlecht == 1 ~ "m"), + RaucherIn = case_when(RaucherIn == 0 ~ "nein", + RaucherIn == 1 ~ "ja")) +# 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