From 9640be8af344b683e9934e6650c13e890b014c4a Mon Sep 17 00:00:00 2001
From: luebby <karsten@statistix.org>
Date: Thu, 24 Mar 2022 13:14:30 +0100
Subject: [PATCH] Vergessen ...
---
Module/Modul_11.Rmd | 29 +++++++++++++++++++++++++++--
1 file changed, 27 insertions(+), 2 deletions(-)
diff --git a/Module/Modul_11.Rmd b/Module/Modul_11.Rmd
index 30a1e00..6ca960b 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
--
GitLab