Skip to content
Snippets Groups Projects
Commit 902f65c4 authored by luebby's avatar luebby
Browse files

Reproduzierbarkeit erleichtern.

parent b52ac33a
No related branches found
No related tags found
No related merge requests found
...@@ -44,7 +44,16 @@ library(learnr) ...@@ -44,7 +44,16 @@ library(learnr)
library(mosaic) library(mosaic)
library(DT) 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(" p1 <- DiagrammeR::grViz("
digraph { digraph {
...@@ -96,13 +105,26 @@ question("Ist hier ein randomisiertes Experiment ethisch vertretbar?", ...@@ -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} ```{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) 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 - `Alter`: Alter in Jahren
- `Lungenvolumen`: forcierte exspiratorische Volumen in l - `Lungenvolumen`: forcierte exspiratorische Volumen in l
......
File deleted
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment