diff --git a/Module/Modul_11_KI.Rmd b/Module/Modul_11_KI.Rmd
index 58b4721cafe7280fb40a4de95938870730c74c2d..e06f90b78762ec3de45d5c7a79e14d8e5608f843 100644
--- a/Module/Modul_11_KI.Rmd
+++ b/Module/Modul_11_KI.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,13 +105,26 @@ 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)
 ```
 
-mit den Variablen:
+Die Datentabelle `LV` enthält $n=`r nrow(LV)`$ Beobachtungsdaten mit den $`r ncol(LV)`$ Variablen:
 
 - `Alter`: Alter in Jahren
 - `Lungenvolumen`: forcierte exspiratorische Volumen in l
diff --git a/Module/data/LV.Rdata b/Module/data/LV.Rdata
deleted file mode 100644
index 63b6b70d589c6f00032df63bd754292f75d5ca93..0000000000000000000000000000000000000000
Binary files a/Module/data/LV.Rdata and /dev/null differ