diff --git a/tutorial_page.Rmd b/tutorial_page.Rmd index 93ea3b5da2c1b7e111b2b139fda29a0370080014..a8883f8baec45c2662ca56d078e9b8fa327486d0 100644 --- a/tutorial_page.Rmd +++ b/tutorial_page.Rmd @@ -7,6 +7,7 @@ runtime: shiny_prerendered ```{r setup, include=FALSE} library(learnr) library(readxl) +options(scipen = 10) gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet") knitr::opts_chunk$set(echo = FALSE) ``` @@ -197,7 +198,6 @@ quiz( ) ``` - ## Datenanalyse In diesem Teil wird beschrieben, wie man verschiedene Daten mit Funktionen ermitteln kann.\ @@ -308,7 +308,7 @@ quiz( answer("Wahr", correct = TRUE), answer("Falsch") ), - question("Spiele mit hoeherem Complexity haben hoehere Play Time.", + question("Spiele mit hoeherem Complexity Score haben hoehere Play Time.", answer("Wahr", correct = TRUE), answer("Falsch") ) @@ -316,7 +316,6 @@ quiz( ``` - ## Ergebnispräsentation ### Streudiagramm diff --git a/tutorial_page.html b/tutorial_page.html index 95c6ebcdd540d45779a8a06d363e7682a45c8e1a..0566a86d680d450b7410807e871c98b8b8a5569c 100644 --- a/tutorial_page.html +++ b/tutorial_page.html @@ -550,6 +550,7 @@ beweisen oder widerlegen.<br /> <script type="application/shiny-prerendered" data-context="server-start"> library(learnr) library(readxl) +options(scipen = 10) gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet") knitr::opts_chunk$set(echo = FALSE) </script> @@ -584,7 +585,7 @@ output$`tutorial-exercise-install-readxl-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "install-readxl", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "install-readxl", code = "install.packages(\"readxl\")\nlibrary (readxl)", @@ -624,7 +625,7 @@ output$`tutorial-exercise-read-data-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "read-data", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "read-data", code = "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", @@ -664,7 +665,7 @@ output$`tutorial-exercise-show-data-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "show-data", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "show-data", code = "gameData", opts = list(label = "\"show-data\"", exercise = "TRUE"), @@ -703,7 +704,7 @@ output$`tutorial-exercise-read-column-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "read-column", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "read-column", code = "gameData$`Year Published`", opts = list(label = "\"read-column\"", @@ -743,7 +744,7 @@ output$`tutorial-exercise-remove-empties-column-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "remove-empties-column", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "remove-empties-column", code = "gameData$`Year Published` <- trimws(gameData$`Year Published`)\ngameData$`Year Published`", @@ -784,7 +785,7 @@ output$`tutorial-exercise-remove-empties-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "remove-empties", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "remove-empties", code = "gameData <- lapply(gameData, trimws)\ngameData", @@ -824,7 +825,7 @@ output$`tutorial-exercise-to-lowercase-column-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "to-lowercase-column", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "to-lowercase-column", code = "gameData$`Mechanics` <- tolower(gameData$`Mechanics`)\ngameData$`Mechanics`", @@ -865,7 +866,7 @@ output$`tutorial-exercise-replace-variable-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "replace-variable", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "replace-variable", code = "gameData$`Mechanics` <- gsub(\"Action\", \"ACTION\", gameData$`Mechanics`)\ngameData$`Mechanics`", @@ -906,7 +907,7 @@ output$`tutorial-exercise-replace-missing-variable-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "replace-missing-variable", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "replace-missing-variable", code = "gameData$`Rating Average`[is.na(gameData$`Rating Average`)] <- mean(gameData$`Rating Average`, na.rm = TRUE)", @@ -946,7 +947,7 @@ output$`tutorial-exercise-remove-duplicates-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "remove-duplicates", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "remove-duplicates", code = "gameData <- unique(gameData)", opts = list(label = "\"remove-duplicates\"", @@ -986,7 +987,7 @@ output$`tutorial-exercise-replace-special-chars-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "replace-special-chars", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "replace-special-chars", code = "gameData$`Mechanics` <- gsub(\"[^a-zA-Z0-9 ]\", \"\", gameData$`Mechanics`)", @@ -1019,19 +1020,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_9152b4", + "character")), answers = list(structure(list(id = "lnr_ans_ca20291", 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_9fa1005", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d955cae", 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_ecf2af8", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_58176ef", 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_fb87b3f", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_21ea4fa", 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", @@ -1042,7 +1043,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 = 1655717186.729, options = list()), class = c("learnr_radio", + seed = 1369528815.86226, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1050,16 +1051,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_243a3dc", + "character")), answers = list(structure(list(id = "lnr_ans_39f493a", 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_9505c08", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e9e5f27", 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_d4b9fe6", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e304c90", 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_7226ea2", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_b76a78f", 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", @@ -1071,23 +1072,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 = 688985354.679166, options = list()), class = c("learnr_radio", + seed = 1855370276.13603, 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_fd306fd", + "character")), answers = list(structure(list(id = "lnr_ans_f44c779", 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_a36632d", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4f8f5e", 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_db56eaa", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_c900e27", 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_6ef3f79", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_84c70ca", 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", @@ -1098,7 +1099,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 = 660407116.692474, options = list()), class = c("learnr_radio", + seed = 1633355848.23941, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1106,19 +1107,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_e1aab94", + "character")), answers = list(structure(list(id = "lnr_ans_90b8a0a", 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_983f5f0", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d19421d", 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_42d1b13", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_7ec7017", 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_8bb43c9", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_1b15dce", 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", @@ -1130,7 +1131,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 = 1571822390.76806, options = list()), class = c("learnr_radio", + seed = 26102984.9878449, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> @@ -1144,7 +1145,7 @@ output$`tutorial-exercise-mean-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "mean", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "mean", code = "\n\n", opts = list(label = "\"mean\"", exercise = "TRUE"), @@ -1182,7 +1183,7 @@ output$`tutorial-exercise-median-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "median", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "median", code = "ptime <- gameData[[\"Play Time\"]]", opts = list( @@ -1222,7 +1223,7 @@ output$`tutorial-exercise-variance-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "variance", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "variance", code = "ptime <- gameData$\"Play Time\"", opts = list(label = "\"variance\"", @@ -1262,7 +1263,7 @@ output$`tutorial-exercise-standard-deviation-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "standard-deviation", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "standard-deviation", code = "ptime <- gameData$\"Play Time\"", opts = list(label = "\"standard-deviation\"", @@ -1302,7 +1303,7 @@ output$`tutorial-exercise-linear-regression-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "linear-regression", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "linear-regression", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"", @@ -1342,7 +1343,7 @@ output$`tutorial-exercise-lm-plot-output` <- renderUI({ <script type="application/shiny-prerendered" data-context="server"> learnr:::store_exercise_cache(structure(list(label = "lm-plot", global_setup = structure(c("library(learnr)", -"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", +"library(readxl)", "options(scipen = 10)", "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 = "lm-plot", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"\nx = lm()\nplot(, , pch = 16, col = \"blue\")\n", @@ -1376,10 +1377,10 @@ learnr:::store_exercise_cache(structure(list(label = "lm-plot", global_setup = 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 Score haben eine niedrigere Anzahl von Owned Users.", html = TRUE, class = c("html", - "character")), answers = list(structure(list(id = "lnr_ans_b9f351b", + "character")), answers = list(structure(list(id = "lnr_ans_378b4dc", 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_ea22999", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_25d3c0d", 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", @@ -1390,18 +1391,18 @@ 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 = 1862864360.63254, options = list()), class = c("learnr_radio", + seed = 51313380.4761053, 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 haben hoehere Play Time.", html = TRUE, class = c("html", - "character")), answers = list(structure(list(id = "lnr_ans_69aeae9", + question = structure("Spiele mit hoeherem Complexity Score haben hoehere Play Time.", html = TRUE, class = c("html", + "character")), answers = list(structure(list(id = "lnr_ans_8620b56", 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_367d8d6", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_42abe8b", 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", @@ -1412,7 +1413,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 = 1097421492.48897, options = list()), class = c("learnr_radio", + seed = 2052683885.04414, options = list()), class = c("learnr_radio", "tutorial_question")), session = session) </script> </p> diff --git a/tutorial_page_files/figure-html/lm-plot-example-1.png b/tutorial_page_files/figure-html/lm-plot-example-1.png index 402dff07588e3368f3fdf9ebbad3d22ca4bc9186..454c9dbe9e842cb79a9345732f91f982b0c6d9a1 100644 Binary files a/tutorial_page_files/figure-html/lm-plot-example-1.png and b/tutorial_page_files/figure-html/lm-plot-example-1.png differ