diff --git a/tutorial_page.Rmd b/tutorial_page.Rmd
index c184de47096e362df222863f9bf8af98ca6f1f56..53451f8366d08a15d4c751260e19bed6fee0824c 100644
--- a/tutorial_page.Rmd
+++ b/tutorial_page.Rmd
@@ -48,9 +48,9 @@ Diese Spalten bieten eine breite Palette von Informationen über die charakteris
### Hypothesen
Wir haben zwei Hypothesen formuliert, die wir im "Datenanalyse"-Abschnitt testen werden.
-**Hypothese 1:** Spiele mit höheren Complexity Score haben niedriger anzahl von Owned Users.
+**Hypothese 1:** Die durchschnittliche Spielzeit betraegt 30 minuten.
-**Hypothese 2:** Spiele mit höheren Complexity Score haben höhere Play Time.
+**Hypothese 2:** Pro Spiel haben 15000 leute eine Bewertung gegeben.
@@ -58,7 +58,7 @@ Wir haben zwei Hypothesen formuliert, die wir im "Datenanalyse"-Abschnitt testen
### Einlesen von Daten
-Um Datensätze mit R zu analysieren, mussen diese zuerst eingelesen werden. Je nach Struktur
+Um Datensätze mit R zu analysieren, müssen diese zuerst eingelesen werden. Je nach Struktur
des Datenfiles kommen verschiedene Einlese-Befehle zur Anwendung. Es können u.a. Textfiles
(.txt, .dat), Datenfiles (.csv) und Excel-Files eingelesen werden.
@@ -72,15 +72,15 @@ install.packages("readxl")
library (readxl)
```
-Der Package ist schonmal installiert und wird verwendet, deswegen lässt R nicht zu, dass es wieder installiert wird.
+Das Package ist schonmal installiert und wird verwendet, deswegen lässt R nicht zu, dass es wieder installiert wird.
-Wir jetzt können unser Datensatz einlesen:
+Jetzt können wir unseren Datensatz einlesen:
```{r read-data, exercise=TRUE}
gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet")
```
-Aufgrund der Arbeitsverzeichnis funktioniert leider diese Funktion in diesem Dokument nicht, aber keine Sorge, wir haben sie im Hintergrund genauso wie hier benutzt.
+Aufgrund des Arbeitsverzeichnis funktioniert leider diese Funktion in diesem Dokument nicht, aber keine Sorge, wir haben sie im Hintergrund genauso wie hier benutzt.
Wir können jetzt unsere Daten benutzen:
@@ -101,7 +101,7 @@ Schreiben Sie den Code, um die Spalte `Mechanics` zu lesen:
```
```{r read-mechanics-column-hint}
-gameData$`Mechanics`
+gameData$Mechanics
```
@@ -159,9 +159,9 @@ Dieser Befehl ersetzt fehlende Werte durch der Median der vorhandenen Werten in
#### Entfernen von Duplikaten
-Dieser Befehl entfernt Duplikaten basierend auf allen Spalten.
-Wir haben aber in unserem Datensatz keine Duplikaten. \
-Zum Veranschaulichen, benutzen wir ein Vector.
+Dieser Befehl entfernt Duplikate basierend auf alle Spalten.
+Wir haben aber in unserem Datensatz keine Duplikate. \
+Zum Veranschaulichen benutzen wir ein Vector.
```{r remove-duplicates, exercise=TRUE}
vector <- c(1, 2, 3, 3, 5, 2, 1, 7, 10, 5)
@@ -177,13 +177,13 @@ gameData$`Mechanics` <- gsub("[^a-zA-Z0-9 ]", "", gameData$`Mechanics`)
gameData$`Mechanics`
```
-Dieser Befehl entfernt Sonderzeichen in der Spalte "Mechanics". In diesem Fall sind Characters, die nicht eine Buchstabe oder Ziffer sind, entfernt worden (auch die Kommas).
+Dieser Befehl entfernt Sonderzeichen in der Spalte "Mechanics". In diesem Fall sind Characters, die nicht ein Buchstabe oder Ziffer sind, entfernt worden (auch die Kommas).
#### Notice
Diese Beispiele sind allgemeiner Natur, und Sie sollten sie an Ihre spezifischen Daten und Probleme anpassen. Inkonsistenzen und Leerstellen können in verschiedenen Formen auftreten, und es ist wichtig, die geeigneten Methoden für Ihre speziellen Daten anzuwenden. Beachten Sie auch, dass Datenbereinigung oft datenabhängig ist, und eine gründliche Analyse der Daten ist vor der Bereinigung ratsam.
-### Jetzt sind Sie dran! Testen Sie was Sie in diesem Abschnitt über Daten einlesen gelernt haben:
+### Jetzt sind Sie dran! Testen Sie, was Sie in diesem Abschnitt über Daten einlesen, gelernt haben:
```{r second-quiz}
quiz(
@@ -200,10 +200,10 @@ quiz(
answer("install.packages()")
),
question("Welcher Packet benutzen wir, um XLSX-Dateien zu lesen?",
- answer("readxl()", correct = TRUE),
- answer("readxls()"),
- answer("readexcel()"),
- answer("excelread()")
+ answer("readxl", correct = TRUE),
+ answer("readxls"),
+ answer("readexcel"),
+ answer("excelread")
),
question("Wie lassen sich einzelne Spalten aus dem Datensatz auslesen?",
answer("dataset&\\`column\\`"),
diff --git a/tutorial_page.html b/tutorial_page.html
index b6162321299a9675e62360e662b88b3fdcfc06b0..fde7074902dd6ff4fd9283199e69a39310b9e62a 100644
--- a/tutorial_page.html
+++ b/tutorial_page.html
@@ -171,17 +171,17 @@ werden.</p>
<h3>Hypothesen</h3>
<p>Wir haben zwei Hypothesen formuliert, die wir im
“Datenanalyseâ€-Abschnitt testen werden.</p>
-<p><strong>Hypothese 1:</strong> Spiele mit höheren Complexity Score
-haben niedriger anzahl von Owned Users.</p>
-<p><strong>Hypothese 2:</strong> Spiele mit höheren Complexity Score
-haben höhere Play Time.</p>
+<p><strong>Hypothese 1:</strong> Die durchschnittliche Spielzeit
+betraegt 30 minuten.</p>
+<p><strong>Hypothese 2:</strong> Pro Spiel haben 15000 leute eine
+Bewertung gegeben.</p>
</div>
</div>
<div id="section-datenaufbereitung" class="section level2">
<h2>Datenaufbereitung</h2>
<div id="section-einlesen-von-daten" class="section level3">
<h3>Einlesen von Daten</h3>
-<p>Um Datensätze mit R zu analysieren, mussen diese zuerst eingelesen
+<p>Um Datensätze mit R zu analysieren, müssen diese zuerst eingelesen
werden. Je nach Struktur des Datenfiles kommen verschiedene
Einlese-Befehle zur Anwendung. Es können u.a. Textfiles (.txt, .dat),
Datenfiles (.csv) und Excel-Files eingelesen werden.</p>
@@ -199,16 +199,16 @@ data-lines="0" data-pipe="|>">
library (readxl)</code></pre>
<script type="application/json" data-ui-opts="1">{"engine":"r","has_checker":false,"caption":"<span data-i18n=\"text.enginecap\" data-i18n-opts=\"{"engine":"R"}\">R Code<\/span>"}</script>
</div>
-<p>Der Package ist schonmal installiert und wird verwendet, deswegen
+<p>Das Package ist schonmal installiert und wird verwendet, deswegen
lässt R nicht zu, dass es wieder installiert wird.</p>
-<p>Wir jetzt können unser Datensatz einlesen:</p>
+<p>Jetzt können wir unseren Datensatz einlesen:</p>
<div class="tutorial-exercise" data-label="read-data"
data-completion="1" data-diagnostics="1" data-startover="1"
data-lines="0" data-pipe="|>">
<pre class="text"><code>gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet")</code></pre>
<script type="application/json" data-ui-opts="1">{"engine":"r","has_checker":false,"caption":"<span data-i18n=\"text.enginecap\" data-i18n-opts=\"{"engine":"R"}\">R Code<\/span>"}</script>
</div>
-<p>Aufgrund der Arbeitsverzeichnis funktioniert leider diese Funktion in
+<p>Aufgrund des Arbeitsverzeichnis funktioniert leider diese Funktion in
diesem Dokument nicht, aber keine Sorge, wir haben sie im Hintergrund
genauso wie hier benutzt.</p>
<p>Wir können jetzt unsere Daten benutzen:</p>
@@ -241,7 +241,7 @@ data-lines="0" data-pipe="|>">
data-label="read-mechanics-column-hint" data-completion="1"
data-diagnostics="1" data-startover="1" data-lines="0"
data-pipe="|>">
-<pre class="text"><code>gameData$`Mechanics`</code></pre>
+<pre class="text"><code>gameData$Mechanics</code></pre>
</div>
<p><em>Wie Sie weitere Dateientypen einlesen und benutzen können, finden
Sie in diesem <a
@@ -323,9 +323,9 @@ Abschnitt über Datenanalyse.</p>
</div>
<div id="section-entfernen-von-duplikaten" class="section level4">
<h4>Entfernen von Duplikaten</h4>
-<p>Dieser Befehl entfernt Duplikaten basierend auf allen Spalten. Wir
-haben aber in unserem Datensatz keine Duplikaten.<br />
-Zum Veranschaulichen, benutzen wir ein Vector.</p>
+<p>Dieser Befehl entfernt Duplikate basierend auf alle Spalten. Wir
+haben aber in unserem Datensatz keine Duplikate.<br />
+Zum Veranschaulichen benutzen wir ein Vector.</p>
<div class="tutorial-exercise" data-label="remove-duplicates"
data-completion="1" data-diagnostics="1" data-startover="1"
data-lines="0" data-pipe="|>">
@@ -346,7 +346,7 @@ gameData$`Mechanics`</code></pre>
<script type="application/json" data-ui-opts="1">{"engine":"r","has_checker":false,"caption":"<span data-i18n=\"text.enginecap\" data-i18n-opts=\"{"engine":"R"}\">R Code<\/span>"}</script>
</div>
<p>Dieser Befehl entfernt Sonderzeichen in der Spalte “Mechanicsâ€. In
-diesem Fall sind Characters, die nicht eine Buchstabe oder Ziffer sind,
+diesem Fall sind Characters, die nicht ein Buchstabe oder Ziffer sind,
entfernt worden (auch die Kommas).</p>
</div>
<div id="section-notice" class="section level4">
@@ -362,8 +362,8 @@ Analyse der Daten ist vor der Bereinigung ratsam.</p>
<div
id="section-jetzt-sind-sie-dran-testen-sie-was-sie-in-diesem-abschnitt-über-daten-einlesen-gelernt-haben"
class="section level3">
-<h3>Jetzt sind Sie dran! Testen Sie was Sie in diesem Abschnitt über
-Daten einlesen gelernt haben:</h3>
+<h3>Jetzt sind Sie dran! Testen Sie, was Sie in diesem Abschnitt über
+Daten einlesen, gelernt haben:</h3>
<div class="panel-heading tutorial-quiz-title"><span data-i18n="text.quiz">Quiz</span></div>
<div class="panel panel-default tutorial-question-container">
<div data-label="second-quiz-1" class="tutorial-question panel-body">
@@ -403,13 +403,13 @@ Daten einlesen gelernt haben:</h3>
<h2>Datenanalyse</h2>
In diesem Teil wird beschrieben, wie man verschiedene Daten mit
Funktionen ermitteln kann.<br />
-Hierfuer sollte man sich die Daten erneut anschauen.<br />
-Fuer diesen Teil ist es wichtig zu wissen, wie man auf eine Spalte
+Hierfür sollte man sich die Daten erneut anschauen.<br />
+Für diesen Teil ist es wichtig zu wissen, wie man auf eine Spalte
zugreifen kann. Dies macht man in dem man die Variable in dem der
Datensatz gespeichert ist (hier gameData) angibt und den Spaltennamen in
entweder zwei eckigen Klammern oder hinter einem $ Zeichen
definiert.<br />
-Die Syntax waere dann beispielsweise:<br />
+Die Syntax wäre dann beispielsweise:<br />
<code>data[["column"]])</code> oder <code>data$column</code>, bzw.
<code>data$"spaced column name"</code><br />
<br />
@@ -425,13 +425,13 @@ der oberen Reihe kann man die durch die Spalten schalten.
<div id="section-mittelwert" class="section level3">
<h3>Mittelwert</h3>
Der Mittelwert bestimmt den Durchschnitt aller gegebenen Werte. Die
-Rechnung dafuer ist:<br />
+Rechnung dafür ist:<br />
<span class="math inline">\((x_{1} + x_{2} + \cdots + x_{n}) /
x\)</span><br />
<br />
Um den Mittelwert einer Spalte zu bestimmen, vewendet man die ‘mean()’
Funktion verwenden. In diese setzt man die Variable in der die Daten
-gespeichert sind (gameData) und gibt die gewuenschte Spalte an.<br />
+gespeichert sind (gameData) und gibt die gewünschte Spalte an.<br />
<br />
Bestimmen Sie den Mittelwert von “Play Timeâ€.
<div class="tutorial-exercise" data-label="mean" data-completion="1"
@@ -492,13 +492,13 @@ data-lines="0" data-pipe="|>">
</div>
<div id="section-lineare-regression" class="section level3">
<h3>Lineare Regression</h3>
-Die Lineare Regression bestimmt das Verhaeltnis zwischen zwei
+Die Lineare Regression bestimmt das Verhältnis zwischen zwei
Werten(-sets).<br />
<br />
-Die Varianz wird durch die ‘lm()’ Funktion bestimmt Hier uebergibt man
+Die Varianz wird durch die ‘lm()’ Funktion bestimmt Hier übergibt man
Daten welche mit einem Tilde-Symbol (~) verbunden sind, also
beispielsweise <code>lm(x~y)</code>.<br />
-Bestimmen sie die Lineare Regression mit “Users Rated†im Verhaeltnis zu
+Bestimmen sie die Lineare Regression mit “Users Rated†im Verhältnis zu
“Owned Usersâ€.
<div class="tutorial-exercise" data-label="linear-regression"
data-completion="1" data-diagnostics="1" data-startover="1"
@@ -518,7 +518,7 @@ href="https://www.rdocumentation.org/packages/graphics/versions/3.6.2/topics/plo
der Dokumentation</a>.<br />
Mit <code>abline()</code> kann man die Regressionslinie der lm Funktion
abbilden. Dazu wird die lm Funktion, oder die Variable in der diese
-gespeichert ist, an <code>abline()</code> uebergeben.<br />
+gespeichert ist, an <code>abline()</code> übergeben.<br />
<img src="tutorial_page_files/figure-html/lm-plot-example-1.png" width="624" /></p>
Versuchen Sie nun den oben gezeigten Plot selbst zu erstellen. Die Farbe
und Parameter sind bereits vorgegeben.
@@ -698,6 +698,12 @@ data-completion="1" data-diagnostics="1" data-startover="1"
data-lines="0" data-pipe="|>">
<pre class="text"><code>barplot(gameData[["Complexity Average"]], xlab = "Spiel" , ylab = "Score")</code></pre>
</div>
+<p><br />
+<br />
+<strong><em>Weitere gute Tutorials zu Diagrammen in RStudio findet man
+bei Björn Walther: <a href="https://bjoernwalther.com/tutorials-fuer-r/"
+class="uri">https://bjoernwalther.com/tutorials-fuer-r/</a>
+</em></strong></p>
</div>
</div>
<div id="section-über-uns" class="section level2">
@@ -1244,19 +1250,19 @@ learnr:::store_exercise_cache(structure(list(label = "replace-special-chars", gl
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-1",
question = structure("Mit welchem R-Befehl lassen sich Packages installieren?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_30e3f9f",
+ "character")), answers = list(structure(list(id = "lnr_ans_ea53d19",
option = "install.packages()", value = "install.packages()",
label = structure("install.packages()", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_2018d14",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_14679b",
option = "add.packages()", value = "add.packages()",
label = structure("add.packages()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_19a95c6",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_341624c",
option = "install.library()", value = "install.library()",
label = structure("install.library()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_b11e9e1",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_be31cc5",
option = "install()", value = "install()", label = structure("install()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html",
@@ -1267,7 +1273,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "second-quiz-1-answer", question = "second-quiz-1"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 825390033.615648, options = list()), class = c("learnr_radio",
+ seed = 1657602708.22812, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1275,16 +1281,16 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-2",
question = structure("Mit welchem R-Befehl lassen sich die installierten Packages initialisieren?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_3e6d706",
+ "character")), answers = list(structure(list(id = "lnr_ans_9ae1f26",
option = "use()", value = "use()", label = structure("use()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a61071",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4341b3",
option = "library()", value = "library()", label = structure("library()", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_37fa355",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_256057d",
option = "init()", value = "init()", label = structure("init()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_ad83c60",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_474fbb9",
option = "install.packages()", value = "install.packages()",
label = structure("install.packages()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1296,23 +1302,23 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "second-quiz-2-answer", question = "second-quiz-2"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 742934503.154044, options = list()), class = c("learnr_radio",
+ seed = 4933800.49770252, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-3",
question = structure("Welcher Packet benutzen wir, um XLSX-Dateien zu lesen?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_dc380c1",
+ "character")), answers = list(structure(list(id = "lnr_ans_391f028",
option = "readxl()", value = "readxl()", label = structure("readxl()", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_47f8b23",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_8dbe603",
option = "readxls()", value = "readxls()", label = structure("readxls()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_b51e923",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_9ef64b6",
option = "readexcel()", value = "readexcel()", label = structure("readexcel()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_153572b",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4b0467d",
option = "excelread()", value = "excelread()", label = structure("excelread()", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html",
@@ -1323,7 +1329,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "second-quiz-3-answer", question = "second-quiz-3"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 228144180.393762, options = list()), class = c("learnr_radio",
+ seed = 1584494806.76216, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1331,19 +1337,19 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-4",
question = structure("Wie lassen sich einzelne Spalten aus dem Datensatz auslesen?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_9f83eb7",
+ "character")), answers = list(structure(list(id = "lnr_ans_f8cea2c",
option = "dataset&\\`column\\`", value = "dataset&\\`column\\`",
label = structure("dataset&`column`", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d5ddbb9",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3a6af4",
option = "column$dataset", value = "column$dataset",
label = structure("column$dataset", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_cd440d6",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_591867b",
option = "dataset%\\`column\\`", value = "dataset%\\`column\\`",
label = structure("dataset%`column`", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_94d4f41",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_7ef7125",
option = "dataset$\\`column\\`", value = "dataset$\\`column\\`",
label = structure("dataset$`column`", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1355,7 +1361,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "second-quiz-4-answer", question = "second-quiz-4"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 380567646.322784, options = list()), class = c("learnr_radio",
+ seed = 1958914011.58781, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1651,10 +1657,10 @@ learnr:::store_exercise_cache(structure(list(label = "hypothesis-test", global_s
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "hypothesis-quiz-1",
question = structure("Die durchschnittliche Spielzeit betraegt 30 minuten.", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_483dc13",
+ "character")), answers = list(structure(list(id = "lnr_ans_309140c",
option = "Wahr", value = "Wahr", label = structure("Wahr", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_6250576",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d9b4c34",
option = "Falsch", value = "Falsch", label = structure("Falsch", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html",
@@ -1665,7 +1671,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "hypothesis-quiz-1-answer", question = "hypothesis-quiz-1"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 1929084801.6017, options = list()), class = c("learnr_radio",
+ seed = 816997023.119556, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1673,10 +1679,10 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "hypothesis-quiz-2",
question = structure("Pro Spiel haben 15000 leute eine Bewertung gegeben.", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_dee4a8f",
+ "character")), answers = list(structure(list(id = "lnr_ans_a7cb675",
option = "Wahr", value = "Wahr", label = structure("Wahr", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_2e71569",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a06bb58",
option = "Falsch", value = "Falsch", label = structure("Falsch", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html",
@@ -1687,7 +1693,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "hypothesis-quiz-2-answer", question = "hypothesis-quiz-2"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 769537120.641656, options = list()), class = c("learnr_radio",
+ seed = 1692421468.2119, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1733,20 +1739,20 @@ learnr:::store_exercise_cache(structure(list(label = "plotExercise", global_setu
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "quiz-ggplot-1",
question = structure("Was ist der Median im Diagramm?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_7308ca1",
+ "character")), answers = list(structure(list(id = "lnr_ans_dad23d4",
option = "ein vertikaler Strich", value = "ein vertikaler Strich",
label = structure("ein vertikaler Strich", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_eb99ae4",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d6f7064",
option = "die Höhe der Box", value = "die Höhe der Box",
label = structure("die Höhe der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_423f374",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_63e317a",
option = "ein horizontaler Strich in der Mitter der Box",
value = "ein horizontaler Strich in der Mitter der Box",
label = structure("ein horizontaler Strich in der Mitter der Box", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_5c4053e",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_ba7cac4",
option = "das untere Ende der Box", value = "das untere Ende der Box",
label = structure("das untere Ende der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1758,7 +1764,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "quiz-ggplot-1-answer", question = "quiz-ggplot-1"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 320931221.350555, options = list()), class = c("learnr_radio",
+ seed = 745289841.152947, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1766,19 +1772,19 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", label = "quiz-ggplot-2",
question = structure("Was sind die Quartile im Diagramm?(Es sind mehrere Antworten möglich)", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_4971d89",
+ "character")), answers = list(structure(list(id = "lnr_ans_99031a4",
option = "das obere Ende der Box", value = "das obere Ende der Box",
label = structure("das obere Ende der Box", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_816d371",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_19ee2bc",
option = "Punkte oberhalb der Box", value = "Punkte oberhalb der Box",
label = structure("Punkte oberhalb der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_f0e7729",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_f68a023",
option = "ein Drittel des vertikalen Strichs", value = "ein Drittel des vertikalen Strichs",
label = structure("ein Drittel des vertikalen Strichs", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e389652",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_9985149",
option = "das untere Ende der Box", value = "das untere Ende der Box",
label = structure("das untere Ende der Box", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1790,26 +1796,26 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", lab
"character")), message = NULL, post_message = NULL), ids = list(
answer = "quiz-ggplot-2-answer", question = "quiz-ggplot-2"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 1197819397.94222, options = list()), class = c("learnr_checkbox",
+ seed = 1481699904.31003, options = list()), class = c("learnr_checkbox",
"tutorial_question")), session = session)
</script>
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "quiz-ggplot-3",
question = structure("Was sind die Maximalwerte im Diagramm?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_3ab683c",
+ "character")), answers = list(structure(list(id = "lnr_ans_4ad8e00",
option = "Punkte oberhalb der Box", value = "Punkte oberhalb der Box",
label = structure("Punkte oberhalb der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3c6f732",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_66e7657",
option = "die Spitzen des vertikalen Strichs", value = "die Spitzen des vertikalen Strichs",
label = structure("die Spitzen des vertikalen Strichs", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_5337dfa",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_5800bcc",
option = "die x-Achse und die y-Achse", value = "die x-Achse und die y-Achse",
label = structure("die x-Achse und die y-Achse", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_1195717",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_6fc92f7",
option = "die Flaeche der Box", value = "die Flaeche der Box",
label = structure("die Flaeche der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1821,7 +1827,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "quiz-ggplot-3-answer", question = "quiz-ggplot-3"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 65594827.969455, options = list()), class = c("learnr_radio",
+ seed = 1184804724.94828, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1829,15 +1835,15 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "quiz-ggplot-4",
question = structure("An was erkennt man im Diagramm die Ausreißer?", html = TRUE, class = c("html",
- "character")), answers = list(structure(list(id = "lnr_ans_2522fc3",
+ "character")), answers = list(structure(list(id = "lnr_ans_bbfbcd6",
option = "es sind Punkte außerhalb der Box", value = "es sind Punkte außerhalb der Box",
label = structure("es sind Punkte außerhalb der Box", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_5aeafe9",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_85fd415",
option = "an der Größe der Box", value = "an der Größe der Box",
label = structure("an der Größe der Box", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
- "tutorial_quiz_answer")), structure(list(id = "lnr_ans_fc8e677",
+ "tutorial_quiz_answer")), structure(list(id = "lnr_ans_7fe2d7e",
option = "durch schlechtes Verhalten", value = "durch schlechtes Verhalten",
label = structure("durch schlechtes Verhalten", html = TRUE, class = c("html",
"character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
@@ -1849,7 +1855,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
"character")), message = NULL, post_message = NULL), ids = list(
answer = "quiz-ggplot-4-answer", question = "quiz-ggplot-4"),
loading = NULL, random_answer_order = FALSE, allow_retry = FALSE,
- seed = 694002896.17683, options = list()), class = c("learnr_radio",
+ seed = 1966414467.58432, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>
@@ -1900,7 +1906,7 @@ learnr:::store_exercise_cache(structure(list(label = "barplotExercise", global_s
<!--/html_preserve-->
<!--html_preserve-->
<script type="application/shiny-prerendered" data-context="execution_dependencies">
-{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62]}},"value":[{"type":"character","attributes":{},"value":["backports","base","bslib","cachem","cellranger","checkmate","cli","colorspace","commonmark","compiler","datasets","digest","ellipsis","evaluate","fansi","farver","fastmap","fontawesome","ggplot2","glue","graphics","grDevices","grid","gtable","highr","htmltools","htmlwidgets","httpuv","jquerylib","jsonlite","knitr","labeling","later","learnr","lifecycle","magrittr","markdown","methods","mime","munsell","pillar","pkgconfig","promises","R6","Rcpp","readxl","rlang","rmarkdown","rprojroot","sass","scales","shiny","stats","tibble","tools","utf8","utils","vctrs","withr","xfun","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","4.3.2","0.6.1","1.0.8","1.1.0","2.3.1","3.6.1","2.1-0","1.9.0","4.3.2","4.3.2","0.6.34","0.3.2","0.23","1.0.5","2.1.1","1.1.1","0.5.2","3.4.4","1.6.2","4.3.2","4.3.2","4.3.2","0.3.4","0.10","0.5.7","1.6.4","1.6.13","0.1.4","1.8.8","1.45","0.4.3","1.3.2","0.11.5","1.0.4","2.0.3","1.12","4.3.2","0.12","0.5.0","1.9.0","2.0.3","1.2.1","2.5.1","1.0.11","1.4.3","1.1.2","2.25","2.0.4","0.4.8","1.3.0","1.8.0","4.3.2","3.2.1","4.3.2","1.2.4","4.3.2","0.6.4","3.0.0","0.41","1.8-4","2.3.8"]}]}]}
+{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62]}},"value":[{"type":"character","attributes":{},"value":["backports","base","bslib","cachem","cellranger","checkmate","cli","colorspace","commonmark","compiler","datasets","digest","ellipsis","evaluate","fansi","farver","fastmap","fontawesome","ggplot2","glue","graphics","grDevices","grid","gtable","highr","htmltools","htmlwidgets","httpuv","jquerylib","jsonlite","knitr","labeling","later","learnr","lifecycle","magrittr","markdown","methods","mime","munsell","pillar","pkgconfig","promises","R6","Rcpp","readxl","rlang","rmarkdown","rprojroot","sass","scales","shiny","stats","tibble","tools","utf8","utils","vctrs","withr","xfun","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","4.3.2","0.6.1","1.0.8","1.1.0","2.3.1","3.6.1","2.1-0","1.9.0","4.3.2","4.3.2","0.6.33","0.3.2","0.23","1.0.5","2.1.1","1.1.1","0.5.2","3.4.4","1.6.2","4.3.2","4.3.2","4.3.2","0.3.4","0.10","0.5.7","1.6.4","1.6.13","0.1.4","1.8.8","1.45","0.4.3","1.3.2","0.11.5","1.0.3","2.0.3","1.12","4.3.2","0.12","0.5.0","1.9.0","2.0.3","1.2.1","2.5.1","1.0.11","1.4.3","1.1.1","2.25","2.0.4","0.4.8","1.3.0","1.8.0","4.3.2","3.2.1","4.3.2","1.2.4","4.3.2","0.6.4","2.5.2","0.41","1.8-4","2.3.8"]}]}]}
</script>
<!--/html_preserve-->
</div>