---
title: "Data Science Tutorial"
output: learnr::tutorial
runtime: shiny_prerendered
---

```{r setup, include=FALSE}
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
```


## Datenbasis

### Datenherkunft

*Wo kommen die Daten her?*

Write the R code required to add two plus two:

```{r two-plus-two, exercise=TRUE}

```

### Inhalt

Was ist der Inhalt der Datensatz.

Now write a function that adds any two numbers and then call it:

```{r add-function, exercise=TRUE, exercise.lines = 5}
add <- function() {
  
}
```

### Hypothesen

*Mindestens 2 Hypothesen*

Mindestens 2 Hypothesen



## Datenaufbereitung

### Einlesen von Daten

*Here's an exercise where the chunk is pre-evaluated via the `exercise.eval` option (so the user can see the default output we'd like them to customize). We also add a "hint" to the correct solution via the chunk immediate below labeled `print-limit-hint`.*

Modify the following code to limit the number of rows printed to 5:

```{r print-limit, exercise=TRUE, exercise.eval=TRUE}
mtcars
```

```{r print-limit-hint}
head(mtcars)
```

### Inkonsistenzen und Leerstellen beheben

*Here's an exercise where the chunk is pre-evaluated via the `exercise.eval` option (so the user can see the default output we'd like them to customize). We also add a "hint" to the correct solution via the chunk immediate below labeled `print-limit-hint`.*

Modify the following code to limit the number of rows printed to 5:

### Quiz

*You can include any number of single or multiple choice questions as a quiz. Use the `question` function to define a question and the `quiz` function for grouping multiple questions together.*

Some questions to verify that you understand the purposes of various base and recommended R packages:

```{r quiz}
quiz(
  question("Which package contains functions for installing other R packages?",
    answer("base"),
    answer("tools"),
    answer("utils", correct = TRUE),
    answer("codetools")
  ),
  question("Which of the R packages listed below are used to create plots?",
    answer("lattice", correct = TRUE),
    answer("tools"),
    answer("stats"),
    answer("grid", correct = TRUE)
  )
)
```


## Datenanalyse

### Mittelwert

### Median

### Varianz

### Standardabweichung

### Lineare Regression

### Hypothesentest

## Ergebnispräsentation

### Streudiagramm

### Kein Plan

## Teaminfos

### Nikolay Nikolaev

### Maximilian Fronmüller

### Lino Cortese