---
title: "Mein erstes Quarto Dokument"
author: "Miguel"
format: html
---

# Einführung

## Quellcode

Der Vorteil, Skripte mit Quellcode zu schreiben, ist es, dass wir die FAIR-Prinzipien einhalten.

Eine tolle Funktion ist `glimpse()` von Paket dplyr.

```{r}
#| message: false
library(dplyr)
glimpse(iris)
```

Jetzt sollten wir ein histogram mit der Variable **Sepal.Width** zeichnen:

```{r}
hist(iris$Sepal.Width)
```

Hier ist die Verteilung der Werten für **Petal.Width**.

```{r}
#| echo: false
hist(iris$Petal.Width)
```

Der Mittelwert von x diese Jahr war `r mean(iris$Petal.Width)`, oder?

Beispielsdatensatz aus vorheringen Sitzungen einlesen:

```{r}
library(haven)
Bonn <- read_sav("Bonn.sav")
```

Problem mit den Faktoren lösen:

```{r}
for (i in names(Bonn))
  if (class(Bonn[[i]])[1] %in% c("haven_labelled", "vctr_vctr"))
    Bonn[[i]] <- as_factor(Bonn[[i]])
```

Check

```{r}
glimpse(Bonn)
```