diff --git a/tutorial_page.Rmd b/tutorial_page.Rmd index 894284fe565d8c73fade72559b6bca1f3cd9a461..6c91137de24d79380c48b22a75d08dd7d47989be 100644 --- a/tutorial_page.Rmd +++ b/tutorial_page.Rmd @@ -295,7 +295,7 @@ owned <- gameData$"Owned Users" Falls man etwas mehr information will, kann man die Eingabe (oder die Variale in welche man dies gespeichert hat) noch in die ```summary()``` Funktion schreiben.\ Weiterhin kann man dies auf ein Plot abbilden. Dazu verwendet man die ```plot()``` Funktion in welche man einen x und y Wert eingibt, zusammen mit Optionen wie das Plot aussehen soll. Mehr information dazu findet man [in der Dokumentation](https://www.rdocumentation.org/packages/graphics/versions/3.6.2/topics/plot).\ -Mit ```abline()``` kann man die Regressionslinie der lm Funktion abbilden. Dazu wird die lm Funktion, oder die Variable in der diese gespeichert ist, an ```abline()``` uebergeben. +Mit ```abline()``` kann man die Regressionslinie der lm Funktion abbilden. Dazu wird die lm Funktion, oder die Variable in der diese gespeichert ist, an ```abline()``` uebergeben.\ ```{r lm-plot-example} raters <- gameData$"Users Rated" owned <- gameData$"Owned Users" @@ -318,23 +318,22 @@ plot(, , pch = 16, col = "blue") ### Hypothesentest -R hat Funktionen zum Testen von Hypothesen. Bei den bereits gegebenen Hypothesen eignet sich der [Chi-squared test](https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/chisq.test). Dieser wird mit ```chisq.test()``` aufgerufen und nimmt zwei Wertesets an mit weiteren Parametern fuer genaueres einstellen. Der ausgegebene p-Wert (p-value) kann dann mit dem Signifikanzwert (typischerweise 5% / 0.05) verglichen werden. Ist der Wert groesser als 0.05 kann man annehmen, dass die Hypothese stimmt. +R hat Funktionen zum Testen von Hypothesen. Hier kann man nun den [T-Test](https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/t.test) anwenden. In der Funktion ```t.test()``` werden die beiden Wertesets eingegeben. Der ausgegebene p-Wert (p-value) kann dann mit dem Signifikanzwert (typischerweise 5%(0.05)) verglichen werden. Ist der Wert groesser als 0.05 kann man annehmen, dass die Hypothese stimmt. Einen Testdurchschnitt kann man mit dem Parameter ```mu={value}``` angeben. ```{r hypothesis-test, exercise=TRUE, exercise.lines=4} -cavg <- gameData$"Complexity Average" -owned <- gameData$"Owned Users" ptime <- gameData$"Play Time" +rated <- gameData$"Users Rated" ``` ```{r hypothesis-quiz} quiz( - question("Spiele mit hoeherem Complexity Average haben eine niedrigere Anzahl von Owned Users.", - answer("Wahr", correct = TRUE), - answer("Falsch") - ), - question("Spiele mit hoeherem Complexity Average haben hoehere Play Time.", + question("Die durchschnittliche Spielzeit betraegt 30 minuten.", answer("Wahr"), answer("Falsch", correct = TRUE) + ), + question("Pro Spiel haben 15000 leute eine Bewertung gegeben.", + answer("Wahr", correct = TRUE), + answer("Falsch") ) ) ``` diff --git a/tutorial_page.html b/tutorial_page.html index 842eb31b724930cb930a905010f54248c78eae05..4161d7860ad1745207964ac548b1d3ca123bbb3b 100644 --- a/tutorial_page.html +++ b/tutorial_page.html @@ -517,7 +517,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. +gespeichert ist, an <code>abline()</code> uebergeben.<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. @@ -536,20 +536,19 @@ plot(, , pch = 16, col = "blue")</code></pre> </div> <div id="section-hypothesentest" class="section level3"> <h3>Hypothesentest</h3> -<p>R hat Funktionen zum Testen von Hypothesen. Bei den bereits gegebenen -Hypothesen eignet sich der <a -href="https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/chisq.test">Chi-squared -test</a>. Dieser wird mit <code>chisq.test()</code> aufgerufen und nimmt -zwei Wertesets an mit weiteren Parametern fuer genaueres einstellen. Der -ausgegebene p-Wert (p-value) kann dann mit dem Signifikanzwert -(typischerweise 5% / 0.05) verglichen werden. Ist der Wert groesser als -0.05 kann man annehmen, dass die Hypothese stimmt.</p> +<p>R hat Funktionen zum Testen von Hypothesen. Hier kann man nun den <a +href="https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/t.test">T-Test</a> +anwenden. In der Funktion <code>t.test()</code> werden die beiden +Wertesets eingegeben. Der ausgegebene p-Wert (p-value) kann dann mit dem +Signifikanzwert (typischerweise 5%(0.05)) verglichen werden. Ist der +Wert groesser als 0.05 kann man annehmen, dass die Hypothese stimmt. +Einen Testdurchschnitt kann man mit dem Parameter +<code>mu={value}</code> angeben.</p> <div class="tutorial-exercise" data-label="hypothesis-test" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="4" data-pipe="|>"> -<pre class="text"><code>cavg <- gameData$"Complexity Average" -owned <- gameData$"Owned Users" -ptime <- gameData$"Play Time"</code></pre> +<pre class="text"><code>ptime <- gameData$"Play Time" +rated <- gameData$"Users Rated"</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> <div class="panel-heading tutorial-quiz-title"><span data-i18n="text.quiz">Quiz</span></div> @@ -1244,19 +1243,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_12cf4cb", + "character")), answers = list(structure(list(id = "lnr_ans_be1d985", 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_65b9fe3", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e89a2ef", 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_90226f5", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e696377", 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_97a58eb", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_bdf59b7", 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 +1266,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 = 1218072898.93279, options = list()), class = c("learnr_radio", + seed = 601899230.719719, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1275,16 +1274,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_16687fb", + "character")), answers = list(structure(list(id = "lnr_ans_e84571d", 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_7a27b3a", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_2781b16", 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_3ad5217", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_84efd9b", 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_683f85c", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e2e3021", 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 +1295,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 = 1599605720.25513, options = list()), class = c("learnr_radio", + seed = 460423745.285598, 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_f45d7ab", + "character")), answers = list(structure(list(id = "lnr_ans_10e2d44", 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_65934f8", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_630dc3d", 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_33189f9", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_30358b7", 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_ac98401", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3a0342f", 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 +1322,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 = 163007436.924094, options = list()), class = c("learnr_radio", + seed = 1284267179.90197, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1331,19 +1330,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_96832df", + "character")), answers = list(structure(list(id = "lnr_ans_f675a70", 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_c6758aa", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d93701d", 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_5ee110b", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e0dd963", 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_c3ffeb", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_267e7db", 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 +1354,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 = 826987455.114904, options = list()), class = c("learnr_radio", + seed = 678218021.18418, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1619,7 +1618,7 @@ learnr:::store_exercise_cache(structure(list(label = "hypothesis-test", global_s "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, chunks = list(list(label = "hypothesis-test", - code = "cavg <- gameData$\"Complexity Average\"\nowned <- gameData$\"Owned Users\"\nptime <- gameData$\"Play Time\"", + code = "ptime <- gameData$\"Play Time\"\nrated <- gameData$\"Users Rated\"", opts = list(label = "\"hypothesis-test\"", exercise = "TRUE", exercise.lines = "4"), engine = "r")), code_check = NULL, error_check = NULL, check = NULL, solution = NULL, tests = NULL, @@ -1640,9 +1639,9 @@ learnr:::store_exercise_cache(structure(list(label = "hypothesis-test", global_s message = TRUE, render = NULL, ref.label = NULL, child = NULL, engine = "r", split = FALSE, include = TRUE, purl = TRUE, max.print = 1000, label = "hypothesis-test", exercise = TRUE, - exercise.lines = 4, code = c("cavg <- gameData$\"Complexity Average\"", - "owned <- gameData$\"Owned Users\"", "ptime <- gameData$\"Play Time\"" - ), out.width.px = 624, out.height.px = 384, params.src = "hypothesis-test, exercise=TRUE, exercise.lines=4", + exercise.lines = 4, code = c("ptime <- gameData$\"Play Time\"", + "rated <- gameData$\"Users Rated\""), out.width.px = 624, + out.height.px = 384, params.src = "hypothesis-test, exercise=TRUE, exercise.lines=4", fig.num = 0, exercise.df_print = "paged", exercise.checker = "NULL"), engine = "r", version = "4"), class = c("r", "tutorial_exercise" ))) @@ -1650,13 +1649,13 @@ 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("Spiele mit hoeherem Complexity Average haben eine niedrigere Anzahl von Owned Users.", html = TRUE, class = c("html", - "character")), answers = list(structure(list(id = "lnr_ans_9bb2259", + question = structure("Die durchschnittliche Spielzeit betraegt 30 minuten.", html = TRUE, class = c("html", + "character")), answers = list(structure(list(id = "lnr_ans_9bb17a5", 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_e13f1f", - 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")), structure(list(id = "lnr_ans_1f3a562", + 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", "character")), try_again = structure("<span data-i18n=\"button.questiontryagain\">Try Again<\u002fspan>", html = TRUE, class = c("html", "character"))), messages = list(correct = structure("Correct!", html = TRUE, class = c("html", @@ -1665,20 +1664,20 @@ 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 = 1536608112.28446, options = list()), class = c("learnr_radio", + seed = 1544183715.28093, 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 = "hypothesis-quiz-2", - question = structure("Spiele mit hoeherem Complexity Average haben hoehere Play Time.", html = TRUE, class = c("html", - "character")), answers = list(structure(list(id = "lnr_ans_cf287ea", + question = structure("Pro Spiel haben 15000 leute eine Bewertung gegeben.", html = TRUE, class = c("html", + "character")), answers = list(structure(list(id = "lnr_ans_495a2cf", 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_73903cd", - 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")), structure(list(id = "lnr_ans_731cf7b", + 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", "character")), try_again = structure("<span data-i18n=\"button.questiontryagain\">Try Again<\u002fspan>", html = TRUE, class = c("html", "character"))), messages = list(correct = structure("Correct!", html = TRUE, class = c("html", @@ -1687,7 +1686,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 = 1942667023.09538, options = list()), class = c("learnr_radio", + seed = 2019060634.0598, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1733,20 +1732,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_8e6a4e1", + "character")), answers = list(structure(list(id = "lnr_ans_7e8eeec", 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_de7bf86", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_1cc8cbd", 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_9cbbb0", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a0d5cc6", 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_de60dda", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e368d73", 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 +1757,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 = 1905845529.61252, options = list()), class = c("learnr_radio", + seed = 1433709425.83238, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1766,19 +1765,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_2d02475", + "character")), answers = list(structure(list(id = "lnr_ans_2854118", 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_f1ec212", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_c6611ef", 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_c2c2414", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_8e1fc07", 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_97277dc", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3dedaa3", 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 +1789,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 = 1246543396.91953, options = list()), class = c("learnr_checkbox", + seed = 211417526.901551, 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_30b8dd6", + "character")), answers = list(structure(list(id = "lnr_ans_ebe3230", 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_aeaac7b", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a62487", 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_73781c9", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_c378148", 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_bacc9de", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3d8920e", 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 +1820,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 = 397739784.814788, options = list()), class = c("learnr_radio", + seed = 1430753873.33375, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1829,15 +1828,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_64c8763", + "character")), answers = list(structure(list(id = "lnr_ans_40465c9", 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_791bcb0", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_678c963", 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_2a2548c", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3c1c65d", 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 +1848,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 = 171218747.92027, options = list()), class = c("learnr_radio", + seed = 319161909.851379, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script>